Prerequisites

Loading the required packages

library(tidyverse)
library(dplyr)
library(ggplot2)
library(rtweet)
library(readr)
library(DataExplorer)

Dataset

Import processed data, which can be found here.

#read preprocessed data
wines <- read.csv(file = '../data/processed_data/wines.csv')

Get sample of dataset

#set seed value to birthday of Ricardo Rodriguez, American wrestler and ring announcer and Dr. Reinaldo (Rei) Sanchez-Arias
set.seed(19630217)

#set percentage to test with for simplicity, if needed
percentage <- 5
wine_sample<- sample_n(wines, percentage/100*nrow(wines))

Split Taster data into different Data Frame

tasters <- wines %>%
  select(taster_name, taster_twitter_handle) %>% unique()
tasters

Drop taster_twitter_handle in wines dataframe

wines <- wines %>%
  select(-taster_twitter_handle)
head(wines)

Add Reviewer profile info

Each reviewer has there own bias. To offset that we made a “profile” for each reviewer which includes characteristics like: avg_points, sd_points, and var_points

taster_rating_profile <- wines %>%
  group_by(taster_name) %>%
  summarize(
    avg_points = mean(points),
    sd_points = sd(points),
    var_points = var(points),
    reviews = n()
  )

tasters <- inner_join(tasters, taster_rating_profile, by = "taster_name")
head(tasters)

Add Rating Classification

Add following classification to wine dataset as found on the website:

Category Rating Description
Classic 98-100 The pinnacle of quality.
Superb 94-97 A great achievement.
Excellent 90-93 Highly recommended.
Very Good 87-89 Often good value; well recommended.
Good 83-86 Suitable for everyday consumption; often good value.
Acceptable 80-82 Can be employed in casual, less-critical circumstances 
# function to add rating
rating_category <- function(points){
  if(points>=98){
    return("Classic")
  }
  else if (points>=94){
    return("Superb")
  }
  else if(points>=90){
    return("Excellent")
  }
  else if(points>=87){
    return("Very Good")
  }
  else if(points>=83){
    return("Good")
  }
  else{
    return("Acceptable")
  }
}

wines<- wines %>%
  rowwise() %>%
  mutate(rating_category = rating_category(points))
head(wines)

Add Adjusted Points

Since, each reviewer has a different bias we created a normalized metric, norm_points, by looking at the number of standard deviatioins a wine is from the reviewer’s avg_points. This gives use a more accurate representation of which which wines are better than the rest.

normalize_points <- function(data){
  left_join(data, tasters, by = "taster_name")%>%
    rowwise() %>%
    mutate(norm_points = (points-avg_points)/sd_points) %>%
    select(-avg_points, -sd_points, -var_points, -taster_twitter_handle, -reviews)
}

wines <- normalize_points(wines)
head(wines)

Data Sanitation

Vintage seems to have year 7200

wines <- wines %>%
  filter(vintage<2019)

Data Exploration

Univariate Exploration

Correlating price by points, using DataExplorer library which can be found here

Alcohol Amount

wines %>% 
  group_by(alcohol) %>% 
  ggplot(mapping = aes(x = alcohol)) +
  geom_histogram(na.rm = T,
                 bins = 50) +
  scale_x_continuous(
    name = "Alchohol Percentage", 
    breaks = seq(0,25,1), 
    limits = c(4,22))
Grouping rowwise data frame strips rowwise nature

Category

```r
wines %>% 
#  group_by(points) %>% 
#  count(category) %>%  
  ggplot() +
  facet_wrap(~ category) +
  geom_point(mapping = aes(x=points, y = price))

<!-- rnb-source-end -->

<!-- rnb-plot-begin -->

<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAArwAAAGwCAMAAAB8TkaXAAABR1BMVEUAAAAAADoAAGYAOpAAZrYZGT8ZGWIZP2IZP4EZYoEZYp8aGhozMzM6AAA6ADo6AGY6kNs/GRk/GT8/GWI/Pxk/Pz8/P2I/P4E/YmI/Yp8/gYE/gb1NTU1NTW5NTY5NbqtNjshiGRliGT9iGWJiPxliPz9iP4FiYhliYj9iYmJin9lmAABmtv9uTU1uTW5uTY5ubqtuq8huq+SBPxmBPz+BP2KBYhmBgT+Bn4GBvZ+BvdmOTU2OTW6OTY6OyP+QOgCQkGaQtpCQ2/+fYhmfYj+fvYGf2Z+f2b2f2dmrbk2rbm6rbo6ryKur5P+2ZgC22/+2//+9gT+9vYG92Z+92b292dnIjk3I///Zn2LZvYHZ2Z/Z2b3Z2dnbkDrb/7bb///kq27k///r6+v/tmb/yI7/25D/27b/5Kv//7b//8j//9v//+T////gxKKtAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAbzklEQVR4nO2d/38cRXKGF7B9jmU4jBMI0dqcgYOcsEkO+ZKLDPIFHRfBoYuVRLZWWnJCliOM9///Od09s/Ote3q6Z7tmunrf92Nr1zPlmq6pZ2trWzO9kwUEMdVk7AFAUF8BXoitAC/EVoAXYivAC7EV4IXYaiV450kJQXER4NWEoLgI8GpCUFwEeDUhKC4CvJoQFBcBXk0IiosAryYExUWAVxOC4iLAqwlBcVGc8M5ubQhtORje3g9+cNqgNqtbbu+LP6fbG39fC+N02yFyT4UOSg9G5eL04c7JvY2Na/skmWkqUnhl5Cf3unPICl5trNkWbTsLeFWGPtxpbJq9998ya4fXj9YcXnEmjgTB8mU8P96oPmQbZ+9+vJH9O6yo4a2N/pvbf7q3cfX3YlceqXj4xcdM4JWvsnoujm8sqZ7d/lS9dxb7r30j/n66pbIaSDHDK1/Ye5vzwxvzk4/2Kw/5xtmtLZaVV4z+WFSmbPTFnzwotdelYfIUCbyzd3bq0cz3tk63rys4Z7fUjmquxN/jTfknlGKGVzZQgl+BbP7+VHkQG9XbFCd4ZZuYvQJVZdqvwbuMVOxl0Tbkn0rq0YiMqbfHqzvzfEsjVyefHP1xp9u7o2KGVwQuu391Km7Jn/lDvpEdvNlY8881GrxlUKJ+BT94cHjzE9+IJm8JRElewlvP1enDf/skWNcQNbziXUe+sHMdZ29H5Uam8LZV3o+KvSwq77KBr0VzfGMu/szly28JbyNXh78J1zXEDK+abchaKglu+bDss3jCWx99reddxsal55WqRbO3lWWtxLmZK9kmB1Ok8BbzvOJtR/YLe9m0wl4x25B3VafbbGcbstF/U8CbR3q6zWe2QaoazdW/21EbKj1vJVfZBMXvAuYrTnhHFYIi1Oz9gM4AryYERafDqwG7BsCrC0FxEeDVhKC4CPBqQlBcFATe86XKZ3W1bA9jHvqgzaBGHk4YLykHBXjXI89k/inMAa+/ecp5JvNPYQ54/c1TzjOZfwpzwOtvnnKeyfxTmANef/OU80zmn8Ic8Pqbp5xnMv8U5oDX3zzlPJP5pzAHvP7mKeeZzD+FOeD1N085z2T+KcxDwHsxnd59tli8fDT94MfmA+AlH04YLykHZYH38p+eLc5+tXj17a7+AHjphxPGS8pBdbQNAuCXXz3THwAv/XDCeEk5qA54RZG9/OcfFy+/PKg/iF03haz/F4KIZYP38sGdg8XFBwrX+kNuEPgVh8ob/qApB9VRebWSW1ZewEs8nDBeUg6qa6rs6S563pGGE8ZLykFZ4M07hFfffpFNM1QfAC/9cMJ4STkoW+U9m05Fz4t53pGGE8ZLykHhN2zrkWcy/xTmgNffPOU8k/mnMAe8/uYp55nMP4U54PU3TznPZP4pzAGvv3nKeSbzT2EOeP3NU84zmX8Kc8Drb55ynsn8U5gDXn/zlPNM5p/CfBh4IWhMofKuRZEi809hjrbB3zzlPJP5pzAHvP7mKeeZzD+FOeD1N085z2T+KcwBr795ynkm809hDnj9zVPOM5l/CnPA62+ecp7J/FOYA15/85TzTOafwhzw+punnGcy/xTmIeC9fDCd7uI2oLGGE8ZLykFZ4JV3uF9+foDlnkYaThgvKQdlu3tYMopb30cbThgvKQfVf9ERLPcEjS0rvHKVBiz3NNJwwnhJOSgrvC8ffbFoXWgP8BIPJ4yXlIOyzzbsSoLR844znDBeUg7Ktri0YneB5Z5GGk4YLykHZYH3bCq1i3nekYYTxkvKQeE3bOuRZzL/FOaA19885TyT+acwB7z+5innmcw/hTng9TdPOc9k/inMAa+/ecp5JvNPYQ54/c1TzjOZfwpzwOtvnnKeyfxTmANef/OU80zmn8J8GHghaEyh8q5FkSLzT2GOtsHfPOU8k/mnMAe8/uYp55nMP4U54PU3TznPZP4pzAGvv3nKeSbzT2EOeP3NU84zmX8Kc8Drb55ynsn8U5gDXn/zlPNM5p/CHPD6m6ecZzL/FOZh4FW3WuI2oHGGE8ZLykFZ4b2Y3n22wHJPIw0njJeUg7LB+/TO96Ly4tb3kYYTxkuEQU0mkxW9uFRehSmWe4KCaiIVyJVtp4QXyz2NNJwwXuILSsG7mhdneLHc00jDCeMlvqCGhBc970jDCeMlwqAG7HnZLfdUnpv6loVxX9x5Xt1L8KDKk+k3HOupd/aSP3GFl8k8b3FuKu9K57UtC9O+c8Drt7k8mX7DsZ96Vy/LJy7wdsn9cJ6j895cnhvAW9sOeHnC29gCeEP4B7yU8DaZPUfPGzSo8Xreyge9tOCtnptFsUWD1+oG8PbwT2FuLjPVKbbE4NW3F8Ha3+n459m6nWlQhi6DJ7ymNxwXL3rPa3fDNM/27UyDSgVeY6u/tHbppABvpEFZqpIp6Rx7Xhu8+tRCfca36oB1nlOEt39VCgLvIFIxdu0rjfRNNgfQeKrlrJ+HVQ4/yAtUL6X5s4X+oezctAmVN86gDMlz9MIQ3iagPeA1vBlpnVTf0Uf5oTXmoNYB3lZAXeEt53kNLXLlxHHIs7eXaILSP5QAXhd4C+c284jyrIs/vA7Vxeylso8zvH17XkPl5QuvLc+m7bEE5VBdjF6qRqzh1a2d4M2fmM159Lwrv8P2Hc7olZcVvDqotsrb+mHO8CSJyjs+vMXbmNW8URvs8NqC4gSvoSS2Ehek8o4Fr/4irXU3+q4h4TXw0hhJR1D6uXeEV6tKsfS8hvH0fIH2hddWqIeFtwnhuTHP5vF6HbRPUKajNUZS48v4/3rBqyfWFpQ3vMbbgCw0tr8ag8boBq/B3KvnLYIyF8dW81YGzvXzYzwHJu/mITa3rwSvLVOGwcUOr3G5p76DHg9e25uROaFtjhr7DLn0C2qFD+bG7X1ekU6ZcoklMniNt773HfSI8FpOiWFPPc4OeFcLanB4DUE5ZYoWXuNbzarwGpd7UoesP9Of+F5EQ7Gv9xUgrXHa9q088EGuLYozeY5j9wvVuNyTOmSPV9xAlbfyxmhSn3fY0ndlV6jKW6k6xbPm4VqH6B1U7bCDVl5TdEvnTkH1r7zVU9J6trsy4WduiLHbpx56xynp/B9dH9hWCir0FIfHK9JhcCuYG/atGlSQntd3jjOQeeiD+sA7wHDCeEk5KP/ZhuiXe0Kez9ckqNXmeSFoTOH+GIitAC/EVoAXYivAC7EV4IXYCvBCbLUSvPOkhKC4CPBqQlBcBHg1ISguAryaEBQXAV5NCIqLAK8mBMVFgFcTguIiwKsJQXER4NWEoLgodnhntzaEru1Xt51ubxEekTrPpojoRRLUyb2WQE4f7oifs9v74k/YQ9YUPbwq+sPrR5VtzOE1REQviqBO7m21BFLAG/R4mnjAK3+Kl7l8lYuHX3zMH95KRMcby8AIyzFFUCqSkw93Tj76142rO9l7ytZ89u7H1/7j4c7p9vX/UpV39t6/yM0qcb/eCToAHvDKl/fe5vzwxlw+HG/whzeP6Pj60clH+8vA5AORKIISfKqqe3Lv+tHxtX2BseoUbm3JyivCydqG2S0Vpor26prBqzpEEbs8NSLPMtXM24YiIhGKrFsfqozm8VEdlSYo8aYheJTtQ9YoyAjki/P04d9uLnte+W/xVyXu4ZrBK0JXL1j54UCcKVW39ljDu4woy/KOpFkRoOKjOipZULN3spefzMmebIBUWNv/8MlRHd7Ze0drCe/8UDSDeVVKoPJWI8rLbt49EIoiqGPV5extySAEl7IA57CKfx1uovKqVJ9u581u3jrx73krEcmgjosOmOqoFEGp2QbZ+Ny7IYeuKH1nJ4dX/KnBu5Y9b/bZXDT94n1Vxn66ncZsQxaRnF/YK2Yb6LoGunle2fF8+I9q6IcbMjVFN3T7mxq8wvhv1qzyjiAE5am89+lW6IlfwKsJQXnKCV7xjhn8nQXwakJQXAR4NSEoLgK8mhAUFwFeTQiKi4LAG3hdVqzPG/6gKQcFeNcjz2T+KczZwmv65hDAi6Bq2yOFV/+anT5e+pmnnGcy/xTmgNffPOU8k/mnMAe8/uYp55nMP4U5V3jR8wJevvAO7mU98kzmn8Ic8Pqbp5xnMv8U5iHgvZhO7z4rvnmt/gB4yYcTxkvKQVngld/Sevarxatvd/UHwEs/nDBeUg6qo20QAOffNlx/ALz0wwnjJeWgOuAVRTb/nvf6g9h1U8j6fyGIWDZ4Lx/cOVhcfKBwrT/kBoFfcai84Q+aclAdlVcruWXlBbzEwwnjJeWguqbKnu6i5x1pOGG8pByUBd68Q3j17RfZNEP1AfDSDyeMl5SDslXes+lU9LyY5x1pOGG8pBwUfsO2Hnkm809hDnj9zVPOM5l/CnPA62+ecp7J/FOYA15/85TzTOafwhzw+punnGcy/xTmgNffPOU8k/mnMAe82k0Za51nMv8U5oBXux1urfNM5p/CfBh4o5aCd+xBQJRC5V2LIkXmn8IcbQN63uxJwkGlDK+vecp5JvNPYQ54/c1TzjOZfwpzwOtvnnKeyfxTmANef/OU80zmn8Ic8Pqbp5xnMv8U5j3h/WEyuf/DG38FvBEMJ4yXlIOqw/uXN/73s/s/P74CeCMYThgvKQdVg/enz+6LP4vnrz9R/7x8MJ3u4jagsYYTxkvKQVnglXe4X35+wHe5p+KXFNmTtc4zmX8K835tww+ybfjps7fVPy4ko4xvfS9+PZw/Wes8k/mnMO8H7+K5zPPb5b8ti45Ev9xTcWEOrtBJVdasylUa2C73ZKq81nXXm0GlVKTI/FOY96y8db189MWidaG96OE19Lz2b7xIOc9k/inM+8H78+O3F+VM2eWDXUkw157XsBnwJhVUY573iiL4SoXdRUrLPQHepIJqTpXJh3yq7GwqtZvUPC963pSCssDroMCDHvnEppxnMv8U5v3ahh8ktst5XsCbUJ7J/FOY94NXm+cFvOMNJ4yXlIPCJZHrkWcy/xTmgNffPOU8k/mnMPeHV12Vo+aSJvjAFsNwwnhJOShU3nL2LOU8k/mnMO8F78+P768dvJXfW6ScZzL/FOa94M3neddKuOSMsRrX8zrfvqYU+BWHyhv+oCkH1ai8a/iBDT3vSv4pzPGBDWuVZU8SDipheLFKpHqScFD6ug2TyX3ASzAcGvO1DirhC3MAr3qScFAJXxIJeNWThINKBt4KqIB3TYKqtw3PX/uaadtQJVWDF4uOpBmUcZ63mOpVt1qyuA3IAO95hV0sOkLln8K8X+Vt6GJ699mCx3JPJngb+9Y6z2T+KcxDwPv0zvei8jK59b1kV7vJEvAmGpT9lxQSU27LPRmutMGlN4mqE14myz1Vl8cx3N/uctBmUCkVKTL/FOb0lTcueGtTC+3wNlaAqrtJOc9k/inMw8HLo+c1watfmNNce6/uJuU8k/mnMA8Hb0TLPVkuEzPAa/glxcDwWueXAa9nP9gH3njmeSvEadMHMcJrn+UAvJ5vqb7wdinwoJ3hzZ61xNjW/A7e8wLeAAddM3gNhdrtoIC3h/+uzX1apxThbU6HtbRGbZ/chs8zet5+L+AwPW9k8DYiMseo97WVE4ipsijhtXwSr/taGnCG19Y22OAdeLZhAPMk4HVr8CpW6cNruKrMBK/2eu47esDbt3WyfrSueuIDr6E21uOoxti78uqnpO/oAW9fcwO8zU3nvOCtjrXcVN3XQaNbzwt4V/MvZSkz1u2mTyC5tQHe0D0vpdTwW7YUz/QnbvvKC830w0Ce6nsKDQny9Mmg8ra1Bv6VF20DRVCG90jr/EF7pirWeuHVg4oXXluMgNfZyzjwmnDUzE3wLjNlP2hk8E6WH0rLoAFvCC9DBFXmzAJvlc9WeIvEcqq8BV8OEJ4DXg8v4wRVO7/nqyS2osprZCh49VIKeMOZxw7vyoktpWeKHF4zJk07wEt10F5BFadEL39lg2dQ9f9xhncZowmTclyNfYA3CngNp0nPlAFxmzkHeL0GHfAFCnhbtgeC1+lkUiTWMCoqeP0GnTq8E8s7bPWUNc2bm/zH0g9er0wNDm/1ZPSE13gbUOE2TXgb53Ghb6ptabg206gf33YODMerD7F1eze8k8prxnB2CqPR4dWC8oXXuNxT30FHDm8bQgt9U7iguk5ZWz7btrcFZX6JedDIEF7jre99Bx03vH6OQgVFDG+4oGjhLV9klqB84TUu96QOWX+mP+l9EQ3FvsoKUJO2C0BGG5x104oiHdzq+zxX5vI8JcblntTBe7ziBqq85bu90+s5fJHyCYq45w0X1OrnQG9hPIPqX3kbp6T5rACmdZ+/eWOfca5x9VNS7GgbgPm4gYKinm0IF9Tq52DVoIL0vLHOcXqaN4Na23leH/8U5lTwjrrcE4mX9cgzmX8Kcyp46/O8iesmofVo5n6Ogh2WxBy3wLTrJqE14A1gDnjbdZPQGvAGMAe8EFsBXoitAC/EVoAXYquV4J0npVCnFBpKgLdQJbDLB/LLP10ntXPrs+lUPTqau86Ye3k3fBFDz+NyCArwFirjkldvnH3wY/3i5Vbl1ounu04n7eWjXQ/nS3M374Yv3G0OM6WgAG+hMi51+dFXje/talVu/eq7gy7L0vzLA0fnS3Mn76Yv3G0OM6WgAG+hMq687NQvoWtVbi3e0KZTh0pi/DrGTnNH7/rXPjaHmVJQgLdQJbCss6pfvNyuzPry84OFSylRb5l3DtydK3NH7/oX7jaHmVJQgLdQ5WyJk3px95ljHcmt1XOXJk58WPntd85FKjd39G6pvAkGBXgLlXHlr2/HDq5aDVw/3zj3nktzR+/6F+42h5lSUIC3UOVsZWWnfvFy+7nNrGW6X/25O3Gqm2x+EW6nuaN3/Qt3m8NMKagY4d3bms+PN+SPG7Pb+3KLeMifEaoS2MV0eufAedYytz7LHlzMTdOwHeZu3m3zvOkFFSO8h5vi72/kj80S2UHhhVgoRnhn7x2dPvy9/LEzu/3phqjBs9t/urdxbf9E/iA6KODlpxjhPflo/+ST//ndvnic3dqcH18/ytuGvc354Q2igwJefooRXllx3xedr/ghkc3IFX9OPtyRYBMdFfCyU4zwzg+3Drfmx5ui963De29jY+PqDtVRQ51SaChFCe/xjT/uzGfvyx81eOmqrlSoUwoNpSjhPfn1e0eieXh3vw6v7HlFA0x11FCnFBpKUcJ7ui0/lu3dmFfgPd1Wsw10XQPgZaco4R1HoU4pNJQAb6FQpxQaSoC3UKhTCg0lwFso1CmFhhLgLRTqlEJDCfAWCnVKoaEUxxdn9zInWp8XYiPAC3jZCvACXrYCvICXrQAv4GUrwAt42QrwAl62AryAl60AL+BlKwu8F9Pqkqum++bJOBrQC+Dlq3Z45VIP5YqoxvVRyTga0Avg5St721CuDmVcK4qMowG9AF6+ssMrimx9eb5ylb6bQoOMEIJaZIP38sGdg8bCqPX1UcmK4IBeUHn5yl55tZJbXx+VjKMBvQBevuqYKnu6i54XilXt8OYdQn1h1Pr6qGQcDegF8PKVpfKe1dZzxTwvFJvwGzbAy1aAF/CyFeAFvGwFeAEvWwFewMtWgBfwshXgBbxsBXgBL1utBC8EjSlUXlRetgK8gJetAC/gZSvAC3jZCvACXrYCvICXrQAv4GUrwAt42QrwAl62ssB7+WA63cVtQFC0aodX3uF++fkBlnuCYpXl7mHJKG59h+JV70VHsNwTNLas8MpVGrDcExSrbPC+fPTFonWhPSkyjgb0Anj5yjrbsCt+oueFYpVlcWnF7gLLPUGxqh3es6nULuZ5oViF37ABXrYCvICXrQAv4GUrwAt42QrwAl62AryAl60AL+BlK8ALeNkKyz1BbIXKi8rLVoAX8LIV4AW8bAV4AS9bAV7Ay1aAF/CyFeAFvGwFeAEvW6UC72QyWfWgoU4pNJQSgXcyKekFvOsiK7zqPmEW97AB3nWUDd6L6d1nCx5rlQHedZQF3qd3vheVl8e6DVZ4s12ANzl1tg081ipT8PbYB3FWJ7w81iqzVd58HypvcupdeaUC00g0VWaHtwI9xEyd8PLoeW3bK/BWEK/vVP8PYqZOePmuVbaksoS32lyURoCXqxKZ562owex5ZbYB8KalRH7DVqqg0Q1e9LyMtQbwWntezDYwVrrwGnpeu5tQpxQaSszhtUwfmCpv1UrzHuqUQkOJN7x6mXWD1/g7jVCnFBpKicBboxjwronShdfW8wLeJMT8ipVJfsmNorH+TH9i+H8QZ/GuvObfSDh8YDN5D3VKoaHEG17fnhfzvElpDHhNCHVQ2rLZE95qq6t7D3VKoaE0ArxGhDoobdnsBK/918OAl6/ihdcwH1Df5wxv4QXwpqVo4dWnvJr7/OFFz5uWou15W9/+/eEt2gb7QUOdUmgoxTbb0AC0lUYPeMsPbIA3LVHBa6t2ZeWtoqrMHSAEvFAuInhLYHRS20EbDt5yVICXr3zhNd4G1Aqoncbx4C3NAS9jecJrXO6pL42AF1pJnvAab30HvNAo8oTXuNyTQqH+TH/itolin+kSMsMmiJ08c2he7qksY43651p5y8kJ3ZXhyXlRStv21TfVK2xDqLxs1bvySlnAcKLRkS/Sa9MAL1+F6HlHvJ43pHnwcwsRy3u2obrcU6Gbfl44m0PxaKV53kI3/ZxwNofiUZgP3TfXxxyKR4DX0xyKR5juhNgK8EJsBXghtgK8EFsBXoitVoX38oH8msyW6d9W87PpVD2O6d3wnQUQL60Ir7zO4eyDH+uX+XaaL57uunl/tOvlPTN38274blqImVaEV12o81XjG646zV99d9BpWph/eeDl/csDJ++m76Z1GhMUj8JU3vrFZp3m4l16OnUoj8ZvLuw0d/Suf0Ni94CgqLRqz5t1i/XLfDvNLz8/WLjUR9UH3Dlw9Z6bO3rXv5u2e/hQVFq1bRCgXNx95lwbM3P13KUzFZ/Afvude2HMzB29o/Ky14rw5jXLtWmsljjXD23uHXVu7uhd/25apwNA8ShM5W25zLfNXDL86s/dsKgWufmdsZ3mjt7176aFmGnVnvdiOr1z4D5RmpufZQ8u5j7TsLm5m3fM87IXfsMGsRXghdgK8EJsBXghtgK8EFsBXoitAO8IevHW18Xz//vPEQfCXIB3XFU5hjwFeMcV4F1BgHcAvXjrD5PJG39dLH5+PJlcUcS+eOvf35xM7r8QP95eyJ+T+2OPkp8A7wB68ebrT35+fGWx/CvhfVPA/MPrT2TlVdX3xZv3xx4mOwHeAaTAFIg+f/3JYvFcEbvcpOD95ZOxR8hTgHcAqdL602f3n8vWISM2q7b5419UMwH5CvAOoC545c7J6yi/vgK8AyjrEX755PlrXxdtQx1exfaYQ2QpwDuATB/Ycngls6oVxpyZvwDvAFJTZbKrrU6VZfCKfvfK4vlkMnkN7HoL8A4gVFUaAd4BBHhpBHgHEOClEeCF2ArwQmwFeCG2ArwQWwFeiK0AL8RWgBdiq/8HAF0a+VEn15UAAAAASUVORK5CYII=" />

<!-- rnb-plot-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


### Vintage
Count wines per year (Note: Data has been sanitized)

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxuYGBgclxud2luZXMgJT4lXG4gIGdyb3VwX2J5KHZpbnRhZ2UpICU+JVxuICBzdW1tYXJpemUoY291bnQgPSBuKCkpXG5gYGBcbmBgYCJ9 -->

```r
```r
wines %>%
  group_by(vintage) %>%
  summarize(count = n())

<!-- rnb-source-end -->

<!-- rnb-output-begin eyJkYXRhIjoiR3JvdXBpbmcgcm93d2lzZSBkYXRhIGZyYW1lIHN0cmlwcyByb3d3aXNlIG5hdHVyZVxuIn0= -->

Grouping rowwise data frame strips rowwise nature




<!-- rnb-output-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbInRibF9kZiIsInRibCIsImRhdGEuZnJhbWUiXSwibmNvbCI6MiwibnJvdyI6ODB9LCJyZGYiOiJINHNJQUFBQUFBQUFCbTNTeVk4TVVSekE4VisvNnVyU0xjTWtFNUdNY01ERm9TdVpZY0tJZzhRa0xpSVRJcG00U09rcG8ybFZyYnNhY2NCTlhEZzVDTEVjSEVSc0J5SWk5bjNmeGo2R203OWkycmVxM3pPdHpPRlQ5ZDZ2Zm0vN3ZWbzNNTFM0TUZRUUVVdXNuQkxMcGltNVZZTTl2WDI5SWxsRkx5Tlp5Y2Z2UFdSMTBZaURIUmdrWVorSS9RSGpqRnFORGZCRm5MbFlnRDRzeFFxc3hBRFdZQzBZNzZ3SFk1eU4ySVJ0cUdJL0R1SVFEdU1JanVJWWp1TTB6dUljenVNQ0x1SVNMdU1LcnVJYXJ1TUdidUlXYnVNTzd1SWU3dU1CSHVJUkh1TUpudUlabnVNRlh1SVZYdU1OM3VJZDNvTWFPS1A0aUUvNGpDLzRpbS80ampIOEFMVnlmdUxYWkIyVG11YVNZaytLWTFuOXRuUnNrVzQ3eU92dnBqK3RMWDkyYXA3MDNPM2ZUTnVhSWpaVnZwTC85OWkrVDF1LzQvNTBuVGNUODdHTUx2dk1VQmZGWFN0cW8wN1M1LzdWY3JaNWdwTHNGSm0xVjZTN1cyVE9LWkdGM0hlUjhTNTE2dWYrK244enpSbmk1SGZNYTYzeHo0OXFCOTRPdjA2ak05bEVLK2pzS2dlUk4rS2JuRkxZQ0tMMHdGTEZxNXVCSmxnWTlpTFAzVkpqemxSNnZoYnVkczFhOFVXcUF6eWF6U1kvb0V5a2twMndHcFhEZ0ZUVnBXdlV2a3FtbGdwME5vSjQ2dUZpYVdzajJGN3NXUkp2UlJkVDlIb1ovZk9ZdG1xdHFacDZMbHZQbGZPRGtYTHc5K2dWYjdOZjBaMFpuQ0U1Z2x1dFVTQnpacUoxTndvanorUVZTbUhGUkpMRHljUWZQcEk3enp3RUFBQT0ifQ== -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":["vintage"],"name":[1],"type":["int"],"align":["right"]},{"label":["count"],"name":[2],"type":["int"],"align":["right"]}],"data":[{"1":"1150","2":"2"},{"1":"1492","2":"6"},{"1":"1503","2":"1"},{"1":"1607","2":"1"},{"1":"1621","2":"1"},{"1":"1637","2":"2"},{"1":"1821","2":"4"},{"1":"1827","2":"2"},{"1":"1845","2":"3"},{"1":"1847","2":"1"},{"1":"1852","2":"41"},{"1":"1856","2":"3"},{"1":"1860","2":"7"},{"1":"1868","2":"9"},{"1":"1870","2":"4"},{"1":"1872","2":"3"},{"1":"1875","2":"7"},{"1":"1877","2":"8"},{"1":"1882","2":"4"},{"1":"1887","2":"2"},{"1":"1898","2":"23"},{"1":"1904","2":"1"},{"1":"1919","2":"1"},{"1":"1927","2":"2"},{"1":"1929","2":"6"},{"1":"1934","2":"1"},{"1":"1935","2":"1"},{"1":"1941","2":"1"},{"1":"1945","2":"1"},{"1":"1947","2":"1"},{"1":"1952","2":"2"},{"1":"1957","2":"1"},{"1":"1961","2":"1"},{"1":"1963","2":"3"},{"1":"1965","2":"1"},{"1":"1966","2":"2"},{"1":"1967","2":"1"},{"1":"1968","2":"1"},{"1":"1969","2":"1"},{"1":"1973","2":"1"},{"1":"1974","2":"1"},{"1":"1976","2":"1"},{"1":"1978","2":"2"},{"1":"1980","2":"2"},{"1":"1982","2":"1"},{"1":"1983","2":"1"},{"1":"1984","2":"2"},{"1":"1985","2":"4"},{"1":"1986","2":"4"},{"1":"1987","2":"2"},{"1":"1988","2":"3"},{"1":"1989","2":"5"},{"1":"1990","2":"3"},{"1":"1991","2":"2"},{"1":"1992","2":"11"},{"1":"1993","2":"1"},{"1":"1994","2":"15"},{"1":"1995","2":"34"},{"1":"1996","2":"56"},{"1":"1997","2":"264"},{"1":"1998","2":"474"},{"1":"1999","2":"618"},{"1":"2000","2":"731"},{"1":"2001","2":"670"},{"1":"2002","2":"346"},{"1":"2003","2":"570"},{"1":"2004","2":"1692"},{"1":"2005","2":"3441"},{"1":"2006","2":"5498"},{"1":"2007","2":"6682"},{"1":"2008","2":"7071"},{"1":"2009","2":"9371"},{"1":"2010","2":"11535"},{"1":"2011","2":"11856"},{"1":"2012","2":"14782"},{"1":"2013","2":"14824"},{"1":"2014","2":"14497"},{"1":"2015","2":"9274"},{"1":"2016","2":"3358"},{"1":"2017","2":"11"}],"options":{"columns":{"min":{},"max":[10],"total":[2]},"rows":{"min":[10],"max":[10],"total":[80]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->




<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxud2luZXMgJT4lXG4gIGdncGxvdCgpICtcbiAgZ2VvbV9iYXIobWFwcGluZyA9IGFlcyh4PXZpbnRhZ2UpKVxuYGBgIn0= -->

```r
wines %>%
  ggplot() +
  geom_bar(mapping = aes(x=vintage))

Winery

To better understand the number wines per winery, we did a univarite visualization that counts the number of wines per winery showing only 15 winerys to give you an idea what winery has the most selction of wines.

wines %>%
  group_by(winery) %>%
  summarize(count = n()) %>%
  arrange(desc(count)) %>%
  slice(1:15) %>%
  ggplot() +
  geom_col(mapping = aes(x=count, y = reorder(winery, count)))
Grouping rowwise data frame strips rowwise nature

Province

To better understand the number wines per province, we did a univarite visualization that counts the number of wines per province showing only the top 10 provinces with the most wines. This can give the reader an idea where their wine will most likely be made with California standing out as a clear leader.

wines %>% 
  group_by(province) %>% 
  summarize(count = n()) %>% 
  arrange(desc(count)) %>% 
  slice(1:10) %>% 
  ggplot()+
  geom_col(aes(x = count, y = reorder(province, count)))
Grouping rowwise data frame strips rowwise nature

Price

Calculating the Mean, Standard Deviation, Minimum, and Max Price for the entire wine dataset and printing the values.

mean_price <- mean(wines$price, na.rm = TRUE)
sd_price <- sd(wines$price, na.rm = TRUE)
min_price <- min(wines$price, na.rm = TRUE)
max_price <- max(wines$price, na.rm = TRUE)

print(paste("Mean Price:", mean_price))
[1] "Mean Price: 35.4748507788616"
print(paste("SD Price:", sd_price))
[1] "SD Price: 41.238007633635"
print(paste("Min Price:", min_price))
[1] "Min Price: 4"
print(paste("Max Price:", max_price))
[1] "Max Price: 3300"

Points

Calculating the Mean, Standard Deviation, Minimum, and Max Points for the entire wine dataset and printing the values.

To help you understand the point distribution by reviewers, we did a multivarite visualization that coorelates some taster names based on the average wine points as identified by the x-intercept. This give you the reader an idea of how some reviewers correlate to the overall average.

```r
wines %>%
  ggplot() +
  geom_boxplot(aes(y=taster_name, x=points)) +
  geom_vline(xintercept = mean(wines$points))

<!-- rnb-source-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->


## Multivariate Exploration

## Price by Points
Notice the data is "stacked" and the socres range from 80-100

<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxud2luZXMgJT4lIFxuICBnZ3Bsb3QoKSArXG4gIGdlb21fcG9pbnQobWFwcGluZyA9IChhZXMoeCA9IHBvaW50cywgeSA9IHByaWNlKSksIG5hLnJtID0gVCwgYWxwaGEgPSAwLjE1KSArXG4gIGxhYnModGl0bGUgPSBcIlByaWNlIGJ5IFBvaW50c1wiLCB4ID0gXCJQb2ludHNcIiwgeSA9IFwiUHJpY2VcIilcbmBgYCJ9 -->

```r
wines %>% 
  ggplot() +
  geom_point(mapping = (aes(x = points, y = price)), na.rm = T, alpha = 0.15) +
  labs(title = "Price by Points", x = "Points", y = "Price")

TODO: IZZY (Why did we log this?)

wines %>% 
  ggplot() +
  geom_point(mapping = (aes(x = points, y = log(price))), na.rm = T, alpha = 0.15) +
  labs(title = "log(Price) by Points", x = "Points", y = "log(Price)")

Data Analysis

To help you understand the data analysis, we found the best province for wine by using the average points across the wines.

mean_points <- mean(wines$points)
best_province <- wines %>% 
  summarise(province) %>% 
  filter(points > mean_points) %>% 
  arrange(desc(points)) %>%  
  ggplot() +
  geom_col(mapping = aes(x= province, y = points)) 
best_province

Best wine, by variety

```r
#wine_best_variety <- 
wines %>% 
  group_by(variety) %>% 
  summarise(mean_points = mean(points)) %>% 
  arrange(desc(mean_points)) 
NA

<!-- rnb-source-end -->

<!-- rnb-frame-begin eyJtZXRhZGF0YSI6eyJjbGFzc2VzIjpbInRibF9kZiIsInRibCIsImRhdGEuZnJhbWUiXSwibmNvbCI6MiwibnJvdyI6Njg3fSwicmRmIjoiSDRzSUFBQUFBQUFBQnUxY0Nad2NWWm12cW1TdW5uc3lPU0doSThIQVNrY2l3cUljV3pPVFpITE5aSnlaTGtKVWxwcnVtcDdLMUZRMTFkMlR6TEN1dUlDUUZiS0FIQ3NvQnN3aXg0S0VRNjdFWloyd3lLRUlncUxjQ0tJSWlJS0F1dXIrdjY1WDc3MnFubGwzOStkZXY5Mys4ZkhWOTcxWHI5NzczbmUrcWtuL3FzMUhKalluRkVXWnBjeXExcFJaVmJoVXFydjZWbjdncUE4b3ltd05sS3JNVnVvSWIwZXZPYmdBYzFZajBGZHcvVER3UnNBQXJydlI1d2xjTitINlE0RDdRSDhUc0JYd0l2Z0hnWmNGMklCeHdEbmdxd0FUOENYQWI5Rm5NK0N2Y2IwUTdXc0FuOEkxcHFjZENmd3p3QlVBOEpUREFJY0RQZ2hZRC9nSTRIYTBIUWhZQXVnRjVBRDNBMzZDK3pzQnh3RnFBYWVBOXl3dzVxQW1nYW52TzdqL1I4QVRvSDNBc1lDL0Ixd1AvakpnQTNBNTJpZEJ2dzhZZlpYSEFlaW5qQUp3bjNJajRLc0FQRThGWC8wb0lBT2dkYUpOZzJ3MVdzdGN3SHdBNXE5dEFtRHVXaEh3RjRETGNIOGI4SHNBSDhOOWZ3czZEL3dMNEs4Qi94UHdMNEUvQVV6OVczQjlFdUFsWEVNV0dzMzFPclJoZlFyV3E2d0N2UUx0RndNZkRYd240Qy9CeDlqS05zQmZBZjRPOEdYd2FYN3RnUGNDemdLY0I4Qjl0UGthOWtqclI1OVBnejRZUU0vNEtYaTdnSWNCcjZIdHp3RzdBZDhDdnhyNFpjRDNBUFRjN3dMMmdJOTlWYUV2YWgrdVNSY2dldzE3cWFWd1RXdUJIRlNNcDEwSmVpbXBJdWp2QUk4QXNJY3FQYk1WMXhzQXZ3SzlFelMxMGQ2UVBwTGVRSEdWQW1BSDRFTEFGd0ZUQU14QitXZjBndzZycEt2UVdSWHJWOUZQL1J6Z1FjRHJHTzhJd0RHQUljQzVBT2ltZGpYdWZRYVlkQTA2cWx5QWEzck9Qd0NnWjhvWEFGaS9BbDFYUGc0NEJPMGtGeGU0QlB3N0FObkZjNkRyQVVmaCtvZDQzamNBZCtHYTVrUzZETjFRdW5DdG84K0hnV21jZVFESVhYcy82SnNBcXdHejBPLzd3RDhHSm5sRDdncDBWUDA2OExlQkhmRElSaTNRbndIUVByd0pUSHQ0QS9DaEFMcm5NZERZY3hYUFZSY0IvZ1FBMmFwWXEvbzI3b2M5S1MvZ212b2RnT3VuQUxSL1kyaGJEdndLTU1rTzhsSC9EUEJJNEJkVTB1T1RBUmhUb1RFZ1M1VjA2aEpjbnc2NEZmQlowT2lqUWpicVl0Q2ZCMzRYdkxYQUt3SFFjdzMrUVlHc05PaWdTbnQ4TnVEWDRQVUF2d0VNZTFUUFJEdnNXSUZlcTZUdnNBZmxId0d2QXNCWG9XY2ErUUw0STRYR0k5azFBS0RueXA4Q29Oc0t5UW4rVFNGN2g0MG96d1BnYnhUSVFNR2NWT2ljU3V1Rm5xcGtUL0JoNnFtQVN3RzNBR0QzS255aFNySi9Hb0M5MWJBR0RlTnI4SVVhZkptMkRvQjVhOUFSamZ3TS9JS0d2ZEV3aG5ZdDdvRlBVUFlCNERNVTZKMnlGM3pZbXBZR3dKY29ONlBQOFFEU09jaFNoVjVyMkV1TmRQZzA4QllBazgyZUFDQ2ZBWnRXcmdFR3JjSkdWTHArRWp5eU5kSkIySVpLdm96V2piM1ZDTk56emdmdkFkQW5BbWlmb2NNcS9JV0c5U3I3Y1UzN0J6MVQ0ZjgwMmcreUVjeExnMDJySFdqN0FZQjhFdnl4QXZ0VVBlQm1BTmFod0Fjb3BPOFBBYUNQS3V4TWhRNW9wRHVmQkpDOWs2NlFuY0srVk14VGhhNW9Wd0hEcGxYb2ozb1BhSXlwa2krSHI5Zkk3NUNNS0M2UTc0ZU9hMlJQRjRIK2JiRGxXZzMrUjdJaW4vQW9lUEFsQ3VrWitUNGFtM3dRK1F5TXJkRFk4STBxMlEzcEplS0JDbHRTeUQ5aVBRcnNVWUVPS0ppN2dua3JzRlVGYTFkSVBtY0F5QS9CcmhYNFpBWDJvWkR2SnAzOURjYUJ6cW53eXlvOUczNWZoUzlSdHdEZ1QxWEVHL1VPQVB5YU5oc0FXOVRRcGtISE5leXZCcCt2UXY0YWJGdUIzYXZRRlEzN3A1Qi9KTDlBZG9xWW9rSm5WUGdaQlhxcFVQd2xPeUM3bytkQUQxV0tlOWhiRmZGRElYOExYNkNTajZJWVRucjRlNHhMUHBOOER1a1F4V2JTQ2ZnYkRUNVpvL1dTUEtCTEtzbnlMUUR0T1d4Zklac2NJNEVENEZjVTBtbjRNV1VRY0RmNjRYNlZZam5zUWlWL3RRc0FuNkwrSExmQXIybDRqa0k2UlA2RC9EelpFdWsxYkVpOUYrMFV1MkR2Q3ZJSkZYNUJoWjVyTkRhTkNheENyelQ0WnBYc21QejVLY0FFSkRQNGRwWGlBT1NxSU42cnNDK2tOb3BDNlE5c1c0RU9LN0JSQlRGWklkMkJYMU13UHdWN29zQWVWS3hKaFI2cDVJdmdQMVRvZ1VvK21mdzA0b0pLZGtJMlJYSDZONEVJTklybDBDRU5QbFdEejlDZ0h4ckcxcEFQcU9UL3lCZGhYUXJXcjhLK05laWRCdnZTb0pjYW5xRlIva0I1RTU2ai9BMnVNWjZLZkVORnZOVmd6eHA0R3NaUkVWczA4dW53SlFyWkpHS1FpamFGNGo3OHFnYVphb2dyQ3VVVFJ3RGdteFRFWlFXNWxvS2NTcUc4QXZGYW9iMkVyYW90QU9RU0tzVWk4cldRaVFvZnFaSXRRRWMwK0hXTlloT2VvOEZ1RmZnZEZUNVR3NkkxOHNHSWh5cjJXMEgrcGRGOFNjN1FNUlhQVm1GdkdwNnBrVStndGNFL0tkQkhoV0kreFZuWWdRSWRWQ0VybFdJQytPcHQ2RTgrQ25GYkkzOVA2NEMrS09UM2tDc3BOQWYwVWJGL0t1V1BwQU1VQTVDUEtyUm5tSThHUFZMZ00xVHEvNGxZY2x2dFdPT1dReDZncFJ6QkFpNzlDTmRQblcwNm82WnZGdmJ2WWF6YWUvZlpqamsrYXJLdXRSMURYc20zdlJLajZ6dHl0dWZuN0tJOTZqRldYVWZPc1UzWHpvU002ZzQ3QzVwUlZSMjJiN204eVJreVhaUGZTWlRsT0I1N2VwbmgyMU43UExtSDd4VUtZajZPWlJiRnMrbzduR0hmeTR4WXR1K0pMbmJHZElzV28xdERPdG5wbFFyb1dnelhpb2FjVjV5NmxuVnM2M0FLWnNaS2JodXgwWG5Jc2R3c2E2bnBjSXBXb1dDRmN1dHd4azNmY2thbXZpUk5GQ3piSFFrWjdaeVI2aG94L2F6bnV1WUVuNkZiOENBd2s0Mlg2SENMR0NwcG1KTmNhUG04WTNHcCtHYk9jNmV1Sy9EN3l3eHJray9QejVsanBoQXlubHNVdStHN2xpMXVMZVRSYW90NUZ3b1R2aVRRa0RFcTdpK08yTDdOWlZRcUZIMXNkN0xmeWlZN0pSbTE4NVpLK2RWMWxMWmJ2dS94YVZSM2pFT2U0U05tZDB5YURsdHNkYWM1Wk84L08xeFpwNW5KakpUQzIrcEFlc2xlei9iRE96dk5YS2dhYytrNk5VanFtak9UdldiRzlsd015d2Z5aHl3LzdOdkN5RlN2TlRSa2V3N1huVTZ6VUtUZDRqUVdsREdkVUpmcXk3VG5RR2ZEb1pyS3JGS3kyM0tMTnU5WTFZbnREUi9lMk9tWW1kRmtqK2VXUnJsbE5UQW1WTklzU2gzZFRESmJncXB5V2RXQVdiUzUwU1JBbG9aS2ZzN3lwYnZLbkpLYjVjdzJZbHArc3Mvemk2V2NiUlhRb3JBSm8yWFluOXJ0anRvd2gxQUhPNzM5WHpRblJ5MWZMTUViNGt0WVVDWlNYU2FrNWxyRjVJQlpHcmR6cnVkeUtYaGpRN2JySlFNQjhUVXlicS9GemJPbUU5dmlaMDB4c0orMXpOTDJWS0U0NFZnVmFyVW8xbjVpV2Jua0h0V2QzcmpZb2JwTzN5UWJMNHJuK1dZSlc4WTFwc1FYVlJzdWg5SE5JWjNxTVowaEsxUEJIb0FsY0J0dEV1d0ozeHlKY3lOekZOdzFQdVREdUV1ajNPbWtHMnpPd29xTy9wamxUbDNEOTJwQnJNTkdhd3kwVUpHNXNmYkkraW9hTGQveEttU1NqTEJiQk52enpYSGJyT0QzRFZ2RHcwSWRaOVNjUlpVdHFhaXhMcDJtUjB5ZWdaZ1dUOXN4SnFxRjAzU0tpR1BhRHZMYWt6TjJpQ3JJZE5NWk1GMEVVRGkvZjIwNmtWRVdUTmRCVXJnbDA3UVBXbU41eU1WMnVHTTdvTEpYc2h0eG1XeEZXSU5yeXI0UU5McVpZZWhQZEpsNW53ekw1YllHNFdiTXJaNVRZaHVBWGFib2pXRlQzYVpQZzV0aU1MaGxsOGVvMXBCT3hXYlJ4QnZrUmRhRlhDdk80S2tETVZ4cmFnOFBxdExPYy9VSU9UT2JXb3ZVU1o0QkRlZEg4b3I2THJOZ2psdUlUN1lwSmxFb1dvNUlDOUNuYU1LblczRHlZaUJFR044VUhxcTZ5NXdvOFRCVzM0VkFZaFhzTWZqTjBJVjFXWDdHRXJHTVNGdnlZbGFCbnNEem5aQk9acGQzREErTG1GU1BSR1NNMHJtTUhXNURNN0h5WnM2TnV0UUUyRzZHRWpPZlB3Ukp6SkRIcDFUSGtockxrVzRKczV4QUdPMkNrNHJuZGZPa3RqNHNsTHlsOEl0enBOWitoQzdIZG5OaGxpRTFWWHFTYWRwbUhIakFHaVA3Y0tkcE1td3Y1OXJjZHkwVVRja1RrVW9WNHJHV2hJSHMwREY1eU80YXNSd1J3UnRBdW5aMEt2TmxYbVdLZUdDa2VmclZ6STMwaVUwYVU3RGRFcy9iRWwyMlkxdTVpSG5iYnNFc09VVytDTWUweWI0dHJwWU9rdHdpSDhETGVCbmtWRHp4YWV6eXNtWXlheWNOejhrTHU4UVR4ckRaV1M2OGtESERLdHBGaHpRV0VHbXJwVFpmTmdSa00wTFRpUndYbWRGaVJoNmU3UGZjckUyRkJhNTdQS2lQNlF0SDVKVmNiQTNQY2xhWnc2SldXV1VOMmVHS2ExYlo1aGdHWXVyY3NNcURjd21teHdkYjVUa1pLZGRJclBKOGQ5aHloR3BVclNyNVFpMUFTSmtqdGRuRG9YR3V6bHJPNURZN015cTJjTFV6SktuKzdOVmpQTyt0VysxbS9OS2tLUkxWMVQ3eXMxS0c3OFBxUXQ3TVNsVlJZZzM1b2R5SUVGZnRHbk1jd2kzeWhIUU4wc1VCeXgvSHFLRkRid1RQcGRLa0Q2ckJhNGcxVnRFeWhVZHJEbW1rZVdiT0Q1MWhLMlBmdHhOSlhjNTA3dHNacm51TkxmbnROUjVpaU9OTTdlS1A5S2YyeGkyc3Roem1iVjRHMXBWcDFGQVJ4cWduRmE1ZzVQT21jTEpyZkV2Y2oxYTc1SWhaMUs4cGpVMWRHOUc5bWpVbEh6NDQxSWFxN3RSQXFpZDhXcmVKbXRmTDV6M2Vpdm9ydE4xRW1aRExGR3FlTk1YTktOZGNpM3Y4Mmxpc2JBMXBIcVhDOENvMXNEZ2JlaS9lZ2lJRE1ZalVMQXlvdkVrT1orMmNXNWtyTklkdFVXVnZrdGdpVlBBNUpRZXA2UFJGMnRiV2JTR3I4cW5DR1RVUkZSMittODJzWmRBM0lXRmVtSUM5YldxdlAxbU1zaGZFMlBHUVVOWHRpSWZXZEh0WlN5d0ZaR25jc3NOdGJ1MkdibUdJcEdFNVJVZDZScUxiTisrOTBwS2NTUzA0bWJLZUNqcklONWozQTExUmROVWhtY25JUnlGbGhseU5WQkdEbDBkbElsb3kxY2J5b2RhUVR2RU1TbUZiSGpiMElLU1BUMTJUNVNsdU0yK0tGaXlDTFJjc0lUZWkvVEpYYkhZajUzYjdQTG9KcHFUeEVDaTVla2Y0N21wd3hNWmdtUjQwZ2llWEVCVE1TZHE1ZVdBVWtxYWJUZlpaUlJ0bGh1a1dMTDduRGVYV2tNY2M5TnFwSy8xQytjQnJhbThvaWJWdzRKUnREZG5KTFNJYXRxeUQrL1FRekdpSVNZLzcvNXAxYmdGek5nVTVLWkVONi95Q2FTYzNPZlk0VjV5NjlXYm0xSkpVWHRTVUdmeG9adlo2VXh4K3JhZGNLN1RMdWVzOUpGbXVYYUJDTFJuVDZab05KcWJOblZuVEJoUzRHWHMwdVlFTzYyelJ5YzBobW9VaXBFYkhIQkhIYStYZTVxZ2RUaWF4d1JvZEx2dEpmZzZ6Z2Z3THQ4c04wSC9IVHA1azVtM1kvV2k0aGcwMmYyYmRCcTlZc0lmUmk0OVFjb3ZDL0RZaUFGZzh2YXpiaUlUVEx4VzRkcmR6QmlVT0F4NkNGcjkzcm1pRGJTRjh5ZWQrYmFKeEFJdVVrdU02VWV1eUFMTFJMaFNucm5RUmpYSTgvRFZ0OUpBcFphMmtzM3lUWmZQVWVTTk1Sd3FTelNHZFlrZG96REgxVE8wbDk1VWFISUhCYzUydDZURXpjTkRoelcyTXJFem1Xc0tXSG84T2Uzak8zTmhURHRFeGgwcE1Cekswa2gxdWpsd1NqK2s5NWFpVDRkSk1vRzQxb1FFRnJxSWhaNUp6NWdwTzVjU3FJNFZ2VTBDbG9nYzB6WXdiT3l1WkcyTkhEallXeGh2alZWWWI3K0FqN3NybGVTTnJpVlRjY3hnemNBV0doVldFVFEyc1NYWnA0UmlEc0M5K3RoWStzakxla1JUR1RaNXFsQ2toMHFhUVJvWmQ4bVdwbExtQjl6YWxod1JzcURmcTV5d2ZwcEczckJGQnBwVXoxd1ZucDVXOWUwVnN3K1ppUUNUbEl1c0JwK2hKOGFZbTZzK3dNdC9jRmxMMVBYUnJzdHNiNDZsY3E4Ukt5VWVXR05tSEd4UFZBTVFDNytkeVpXd0w2VlEvRkZCdWFlVXRzWktrUEFTcUpGZDZ4cVFsbVRLbWk5TFlFOTJMRURpWENWcVI4V2JFWXNaOUZDRDVFZjdncGpKckZQbys3aytJdExiTWhZdktTY0c4ekN0bEpUbU4rNldzRU9Ka3llTHFVZFZqT1Z4eGEzb3NOek4xQTg4U29LYklvSE84Wm9xb2JSTTdGWW9lenpjemJvVkJSZGt4ZzRvMXhtdmZjTkJZOXRESTJCRTdiMmZNc2pWWlVYTnFuTzRncXlGa1Jtd3M0RVZzYkJHWUJTdFhvcFAxNmF1OXVoNkxkZUFTc3d1alhBZzFvQW8yWDFWdHJIaExWR1MzOHdWbk91L1FJalhMczhmQVNOdEtCYkZ2d2Z1WWNHMmVXN1R5SlVkT0FLdkxCNTFpNHoxZlBqNW9JTnBqdWE2WUxkeTluSTdXOGdDZ2hMTVBhSXBNSFk2MUZRYnVrM1lwNGV4Wk13TGkxRjI4Mkd2ay9INXZ1ekQ5TXBPSE1rYVNJK3IxT0xzcFpIZmJwcGhYUThqdDl3cW16QnZ4NlB5SW0rUjhtWmVxT1BGSlNKa29YMEhJaWNpL3BxZFlHQmVuZWJYbHR5QlpjWmdVMHVKWVArQ0lZRmdkZVhIU0VGQk0xZGh4bjh4TFR1MEtFc2tDeWRKMkMxd2VRYWV1OG52STBCL01ZZHpzY216S2R0b1UyNHJkc0JiNUNKSUJibElCMXh0Tzhqdk15T0pFMUsrT0tFbFRRQ1UzbFE5V3d6NzFsVVZUVFM4ZGNQSUN2N1lYcFRYOE16OU1JSnJyV2Z5MUZxVkNrak5QbEZNaitDUytzNjJJTTZTb0VFUStYNkp6bm5oREQxWDRqamg4YWFCM09pU2hjZWxJS09EWnFPdzhFYVI2cmVqN3FycGVHeU9XTW5hWVNGWDNlbjZSbTFKTnIxZVFqcGxxZWhFRWN2d1ZZTzJtMGRKa3pwc003MjNjQkRlWnM2THYwUm9DWnBGS05IN1FzNms0d25QRXFqNXo2b1p3eVBvK21BTGxyY0lnMmlSV3RENXJrVnVrMTFxMTRIdFNMR3ZvUTNFU3E2RHhvTHhaR0pWeitMbytTdG9kaTZkYnhBREhLa3FNUWdGUlJsU21mU2dheTRkaTdIMWVuNVdGMURmYmxFbnh3cU91ejZMemFuRlkzeEM0eHk0WTVCQVgzblMxVmNpa2dvVHZXY04wcVJjTElBTzJGQmFtQ3lxMWZmQ3RlWTg3N1JyUWNPeEZpY3g3Slc3OGZiYVZ0U241NTY2M3o4NEp6NFoycWl6bFYzd0JSMndSblNoWFpydk53VWx6L0YxMEF6dUFsbmU1dnZKUWVwN0VxaHc3MGhwY1M5Vnd1OXdheTRyWTQ2bGU1a1ozb015YklaSW1lSjhDVTRSRmdwT0tINldFdTFQdTBXT1ZwQW13Z1NSZFRsUXNvRVZ3VXZKUmw4eVB4TmN5WCtSRnpTRWRlN25ZWnlQSnBMMlBMSzIrRHltY21ZRmVjbzljMWVkTThQMmVUUysxUS84WnZPQXUwZnVPZmlzOHJHMlJ1VjZCZitMUkx2RUhVR0dPU2pXM2ZFLzVMVE9mVGNDM0MrSlV0dzh1S3MvWGl2a1h4SWwzVFo5dmpSWDRCdzMxZmI0ZE8xcHNCTXNxMHFGcXBzU0RlaDJZWTNiUkhoY2VCVFpnaVdxdkRmUTRzazhyNlZ2WnlPY1Y3YnlsOHRPTGxqNi9WRGFPMkFjS2VGd0o4VVpNTzlHSGZuWlJ6bGI2elNIWjhLcEJlOXdvYS9xaFdpTGsxUGZEa1lVSHdHeWIrcTBoY2E4MVZPSSt2UzcrbHIrbTN4cjJhTEJBWnZQNlI2WnVSUUVSL3lTQUhRaEdXaXMvQ0dqcXQ0ZmdiTXdneHhIUHBDTVdVeGhEYmV6TVpVNUlWMXAzVGI4OUx0Mlo2RWRzTHBDc2VBSFI3dzFKSWF2ZnkySW5Rd2ZUenNqVU5CbFZWYjhua3B4RXZ6ZUdKQlBiRkpZYlZiTHlWbE4ybHZWa3FpajJ5aXZJYnlKYVFGdnVXRVVXMGRUdkZlV1RWMmFIQVZlY2l2TDVGSE4yZmxqY1hoY3Y5aFp3Um1yYWM4UTIwUjR2SUVVTDk0anNFNkQrVW1aRVduVnAyQ3J5aExKL1loSlRIRTMyVCsxekM2TlQreGkvZG1CcTkxaDVNOW01M01EVXRaSDNlN01IekF3L29COGdMU1V4ZTRJVGV5Ky9XSEJtcnJwYXBFNnkrNXNqK01sWW1kY3FOWFhMUWE1MndNeGI5Q2xGdUNjaEhYV1pkZkdqbERuU1p3R3hOVGRQSHprV3h0aXArQ2RmaStJZEtsOVBWdmFvZU1PNUpONUgvdktBRzhlQ2lsN1I5N0x6NCsyVVdWaGJlVDBURzFRSmhSeHlrUmVlV3VMSzFNZ2JLS2tTa2g4M29ZQ3VFUEc0V1pSS3Y3b0JxSFhKdDNndVdUTkFMLzE1TWRnQ2NwdnBGeWY5cUVkcEdFQUJtY21VRStnU1Z3MjJ2a3FoTHVCTjArOWJ6VURrdlgvRGdEVXhia1lqWi9VQWNseC9RbEJTRmQ4Y1VQRnpoNFV4ZHVYUkF1c1FQMXBnYkhhMEVBcWVNZU92SkZwWVE5eC90REgrTkcraFdFc3NYYW9ic0xOMDVzSVZLREZnVzZndHBOMnBIYkFkMlYyM2huUXE1dmFxa0xueU1xV2FDUDVKWnMwQUppcSs0NmdHT1dueWpIc2dQN1c3R0gvNTA4d1Rpa2cwcWg4b3JraHVOS0UrL0YxaW1XVlFNY2RaRFFPbFFta01BcERqNzhCRVpCMmd4L0lqbmp2QnB5K2Z4NVNKMk5sdFU4Q003WGg3bEJzNWFGb1FhNnY0emk5c2ozek53N2d4RFdrSXVKR3pwNUFYdURUbTB4a3Zyak50QVgrYXlrTnVpZFlmclVGTHBUcXhLY1pDemNMQi9XZU1UVjFsZTJaaC94bklGSEh0MGp2ci9XZUVNaCtFeHBndWZ4TlRCM29yQnVhTTZzZ0JXSE5BVlp6dHhkZ1JrVGV5eG9pYmIyQk1lWXZySzFlMVJHTE52R250Y3EvWXkrWTJ1UzJ5VmRFV2VYS1Jsb2lQYVkyMFNIT1AzQkk5bDVkYUFsL21UVE5ZeEtTcUJoRVl1YmNHNFRsWkt4ZmVOb2N6c0tGRjA1RWRPWm9vOFBNcXVXRnd4RGZ6eUtPa1Q1enJCbTNLd2tSa2JxUTMyMmF5WTR5KytUYWp6RTVVNjE1R2FFZVoyV1hHYnMxYXlVRlB2SXNLbVU2eXorUitUT0pLZlJNQlYzcG4wTXc0d1FjUjNHRTFCT3dlZStvdWJ2NHRBWThPZTB6NkRvWlhOQUcvMy9QNXE4SHl6RzNJS2lsUHg0dFBNaEZ3MTRqTXFUSGdHUFQxRTkrNXFrSEl4T1lqRVpIa1gxeUVkdU9ObWx0dGNjT29LQ3JMUkxLaXZrMUFMcjduRnFldTVSL1VzSys5eFpPQ2o3L0x3aEZTbVA2VDhJUGovSmtOYUY2OGEwUWQ2eEJXdHBwWjhYS29OaFpuRW93V0IzQzRoVTdvaERqbWNBWWRuMjBzNWNSN0Q2bHBJRS9uSGxMYWlpWjd1L3pvYW5EeTNMYnFCK25JTUhqSktHNUJ4WUVnSlNJcU9Baks0bDE4RTJmSWlWcnRZTWtma2w1UkpTcSsxbW9YbkZUOE03Q0c5TGdaUHhpc0FjOFI1MWdKdzNTeU51cHNrYTJCTTI2NzBiTzl1bmlWVWxQT0NQbDIxMFFUeFBtTW5DR25hZ3liNVpkN3RXV213LytXSTBHMFRSOTZjdTB0Y3h5NTNTdllvdGdzajFDYW5PUzFlMGh6TTBoSzk0NVpjaTNTTERqeW9ReldUWTQ3STg1VkRhdVFsei9ZTFRQS0wwdzR3ODZhV1NsY1ZCR0RuekdYaWVqM2RrWnd0TVkvRHpCc2gzYWM1VVJJV2FRL2VhbU5aV1p6UXJyeXhjQUMzalQ5dWRSODBUNWRFZG5LbStNMUpHOFFlYVVTbTB5RlZ0RzhDOUpmNmtBb1JmRXhMUWh2dk1ERGU1V3NGeTFsb2pKeGJ3ejRVY1dyTnVDRXhMdjFhVDhjQmRjcFpFWmlaVU45NVpGR0ltREo1MTRCSjNhR1VidVpZbFJLcU1SbTI3VUxxTzF0aWVHTjBkdlA4STdZeHg1Vld5eUhmN0ZTczhVZXNvZjRJVTc5RmdoMDJIU3o0a0JnbnNSS1ZSNFhiTEZkYXVUdk5XcTNPT2FJOU1jc3RWdTJXWFlPQmgzN3U3V3FETUlKKzdNMThjZHN3MmFtNkZIcXh2N3NYUHVLZnVJOUN2MHE4WTVsRjY1YmRxRis0dW1NRHJFK0EwN09nSlUvTGpaZXVRNi82M1hqT1VhSCtQRTAvUVIraUg3ZjFJMzdibXlmZkg0dDhJR24zbmVncnh0c2ZmL3BlQy9EdHo1eitYY21QZDI0aWRIWHNmbUgrT3BoK2dsODFlS3Z0cTU1ajI3c1l2M2orUEs3OGR1ckc1K2ozMlc2Y2NtVFkxOTkwZ1ZlUGpTK2ZFZzNMbWJyRC9FRjd4Ly8wYlB2MDQxenZ2UFVUZWVkb0J0bnZ0cTcvOVZOdXZGWGIxNjR1KzdudW5INjJrZE9lbUVVbUkzL1B4WC94ZTBQNGovZzlVZisvTkJ2NjhacEV6c2FYdnVSYmt6TS92TDU2eWQwWS9zUGR4N3p3NTBTL3NoUHoxcHloMjVzdTd4Nzg5TFA2a2FKeVNQRXhYY09QM2hUUVRjSzQxTWJkeHdQZkNUOUtyRmYvdW5HcWEzMDA0MzhHL2hCYm5rMnJ6ajJqbnZ6NGVQZTBnMFhzemptUmQwWWUyUHB5S09uNmNib0phMWZ2dFBVamExczMvL1llT1N1RlorNTZpZTZNY3owYUpqTkowdG12RTQzTWxDVHNkdDFZK2hyNzN2aGE0Y0RuN2oxa1BHcmdOOURQOTA0aGZYL3QrS1Q3NENBRDlLTmorOWRjTmcxcit2R1I5bjRKekc5UEtuNWxaV25ucUlieGlYNFhhb2JhU2IzT0I1azR3MGtmbkI2YlQ5dzlVOVBXSDJFYnZTemRmV3g5dDRIbmptaUIzYmN3KzdiVVA0QnozcG84NUtNYnF4NzRlMldoNS9Valc1bTUydWVHN2xvK1RHNnNacjFYLzJCVnVYbmordkdLcWIvcTVoY3VraGRQaVRoay91K2Q5SFJ1dEg1WXdqMFM3cWhzK2YvYjhOL1ZsNkliaHovTkg3UDZBYXA1WnNQQXpNN091NVU4b2k2Y2V4cDlOT05Eei9mZldNN1lhalJqKy9TalErdHJQS0g2blhqbUMvc2VPSUxmdzNNeGoyYStabWpHN3YrN3B1ZjA0MmptSHlQV3ZuTVBZOWh2QThlOGxyZGFaMjZjU1N6bnhueGduOWFlUzcyYmVXeGMvWWMydzdjL3RhaGM1L1dqU1BZYzBLODRwMTlQenZ0V2QxSWViUC81aDNZVThyODJuY1BlRTAzM3ZmWXpuMXJYOVdOUDJGNlVvRzd2bWg1QzNUanNGK2R0SC81UzhENy92VHF0ekRPWVV3dWh6SjdPVlRQMWE4K1RqZVduNDNmT2NDMHZISGRlTysrNFp1OVZjRE1udDZiYnY3TmRaWnVIUExncFNzK2RxZHVMTnMvOS81ellFZkxtQjR0NjM3L0t3dDI2OGJCZCt4ODRkZ2R1dkdlWHczdGV2VVh3TXkra20wcS9nTm02L3BqNFlOU3YzZzI5YVp1TEdIclhuTEJ5dXZmZ0IwZWVOTjV4ejlZQjN6d0p2L3JSK25HQWFsTEhyUnUwWTFGck4raUxmVFRqWVhNWGpuV3ZlS043d1UrNElJN0Q3aFFOeFpzZ0RxOFh6Zm1uZnU1cDgvNENQRHB3WFBuZFg3anBQcWx1akdYN2Y4Znd1MmZlTUtkRDd1Y3MyNzNvemJtTTRmcFFZamJTSXlINkViTHpUU3lialM5WExqektmaVZwbDJ2NEQvZ2hTMEg3c2I4RzVrK043RDQzc0RrVUk5cHJqZ1hlR24yOExNdTBJM0VuZGRmZHVmZkE3UDExdDMzOUs5ZmdyK3I2OXJSdFFQN1d1c3QzZnRwN0U4dHV6K09hMWplVU0zMnYrcVI0c2ZucndHKzVxQUx6LzBrOEJKeWdMb3htKzMvckdzK2ZNWTF4K3FHZHZLM0w3MFY4bE1mVzl6eDJHTGRVTmg0LzQvL1hUajl1OXp0NXpjZURuekl3bmN2R3RIVHYvMHFKVHA2K3A5WisyKzJ0eDEwKzZmMDlLLzN2SFAvOFpjREIzNHIvVzRRLzlOdkIzbFJCZjVsb0k4Y3YvWDBjUTI3TndQUGFiLytyZ1F3Ry8vTlFDOW54Rzg4Y084dHYzd2FtUFgvUS9obnowOXVlMmd4c05iMTlodkw5UFRydjFxOTRvS1g5ZlJyYkYwaGZqWFE2elNGcWQ1NzlmUXJUOTI3OWxzM0FnZDYvSWN4R2N5VmV2b25UOEJ4WHdFYzJISDZ4Nk1QTFByRjJYcjY1U3NtWHI1aUV2alV4ZnUzdFFHZlFJRlZULzhvMFBNSy9OTG9sdS9lZG9PZWZqSFE4L1NMaXpwMkwrb0VadXQ2Z2R6bGNqMzlmRzFueTVsTDlmUnpqUDhmeGM5KzhQU1RyOFk4bjdyOFU0OFhzWTZuZ2ppVmZvcTFQNW01NStMWEx0SFRQMkQ3L2YzQWI2Vy8zMk1kZGRGMzlmVGpkOTE4eTY1M2dkbit6b1FmcGQ5MzlEU1o5ZXBISkJ6a2VlbEgyUE1lbm5YWXZJT2dYOTg4YStUOEQrMEJua0FBZVFJWVVlNWs5R2QxUmlXKyt1YkxIaGdGemxDZ0ExNjEvY2k3ejlIVEQ5NS9mV0wzVWNDQnZ4SjROYzFBVHovQTlqSEU5N045dkQrb3h6aitCcHZmZlJjZDlWTGpCSENROTZUM0IvbE4rdXNmcEFSWFQvL2pZUysyWGRHaHArOWgvZit2NFg4NDVmWExGc0N1OXEzNTFxL1BneHozZnZTejk5NTVuSjYrKy9hZCtZdStCUnprcmVtN21WM2ZjVUx6R2MrOUsyRTJ6dTFzZjI0NzZ4SDFpc09BbVI3Rk1hdjMwcmZTN3paZ1pqZTNzUEZ2bVhYYlEwM2YwOU0zQi9FdXZhZThjUkptZW5nVGUrNU0rQWJtTDI1ZzlzbnF5Um54dFUyZnVIaXZxYWRablRrajN2MzlvM3MrYXdHemVlOW16L3ZTOVJlZjN3US90SXZSLzlYNGlxRGVTSC8rQ1dQSExOampaYWRSUWFXbldSMWNnUzg5NS9QSlpYdjE5TVczUFhydmtlY0RzLzM1US9oODlyeVo4TTV6cnQ5ODkzVjYranptQjg0NzV2WTM5NTZucDg5bGRoL2l6d1QxU2ZvYyt1MEFadmVmemV6MHpLWGtNUFgwNll6L2Z3MVBNcjJjWVBzMWNlWlRXKzUrVTA5dlorMnMvazduR1UzaDY5UDc5TFROK3JNNk4yMnRiOWh6Qi95MStaVkRSeDg0UUUrZnd2ci9XekZaVy9IamV2cGpMTTU4Rk5iYjg0cWVablZzZWpQTEp6WnZwNStlWm5WcmVtQVBGUzU2ZWxNei9mUjBiMUFYcFRleWNkZXo5YTFsdFA2L0JMTjZMcjJ5RG9YVG9YcjZDTVlQOGVFc0wyRjFWcHJWUzJsV0o2V1hIWDdXK1RmUDA5TkoxbjhtelBMMnRQTGZnd2ZmRHZacjhQWGduR2J3SHNiLzkrSmRESjgrQTJibk00TTZvNFAxQjhlMXMzNnZSRTlvRTFtemFLNFk5czB4SzNhZ1crZDcyMWE0SnYzbFVmQ3Y3R24wZ04vLy9yY2ZpWi84aHAxb1hDMDhoNlovU3NzcWh1ZnQ5V09XNmY1NTNyUGRJdlg4WFd5SUdpOWZ0RDIzRVB4N2lmVHZHMFltU2YvWVc0VFJYSExwb2RsVVpxVGtqcWJvMzVCTEtNRS9zS2l3MmFyQnYvOFpYdE0vZ2tlUHJBb0ZVQlVlVVZ0dVR2eU5RcFZqRHZHajd5WklvTHkyRmZRUGNQRy9FUUczc0tMb2lUY1FpWXpuaEp6Z3BQdDMvd0xiRFRra3oxZ0FBQT09In0= -->

<div data-pagedtable="false">
  <script data-pagedtable-source type="application/json">
{"columns":[{"label":["variety"],"name":[1],"type":["fctr"],"align":["left"]},{"label":["mean_points"],"name":[2],"type":["dbl"],"align":["right"]}],"data":[{"1":"Gelber Traminer","2":"95.00000"},{"1":"Terrantez","2":"95.00000"},{"1":"Tinta del Pais","2":"95.00000"},{"1":"Bual","2":"94.14286"},{"1":"Riesling-Chardonnay","2":"94.00000"},{"1":"Sercial","2":"94.00000"},{"1":"Blauburgunder","2":"93.00000"},{"1":"Garnacha-Cariñena","2":"93.00000"},{"1":"Ramisco","2":"93.00000"},{"1":"Muscadelle","2":"92.50000"},{"1":"Rosenmuskateller","2":"92.50000"},{"1":"Sirica","2":"92.50000"},{"1":"Caprettone","2":"92.00000"},{"1":"Carignan-Syrah","2":"92.00000"},{"1":"Centesimino","2":"92.00000"},{"1":"Chardonnay Weissburgunder","2":"92.00000"},{"1":"Kotsifali","2":"92.00000"},{"1":"Moscato di Noto","2":"92.00000"},{"1":"Pignolo","2":"92.00000"},{"1":"Sauvignon Blanc-Assyrtiko","2":"92.00000"},{"1":"Tinta Negra Mole","2":"92.00000"},{"1":"Vespaiolo","2":"92.00000"},{"1":"Malbec-Cabernet","2":"91.66667"},{"1":"Braucol","2":"91.50000"},{"1":"Chardonnay-Albariño","2":"91.50000"},{"1":"Loin de l'Oeil","2":"91.33333"},{"1":"Syrah-Petit Verdot","2":"91.33333"},{"1":"Sämling","2":"91.20000"},{"1":"Picolit","2":"91.12000"},{"1":"Neuburger","2":"91.11111"},{"1":"Bacchus","2":"91.00000"},{"1":"Baga-Touriga Nacional","2":"91.00000"},{"1":"Black Monukka","2":"91.00000"},{"1":"Cabernet-Shiraz","2":"91.00000"},{"1":"Cabernet Franc-Malbec","2":"91.00000"},{"1":"Francisa","2":"91.00000"},{"1":"Malbec-Carménère","2":"91.00000"},{"1":"Malbec-Petit Verdot","2":"91.00000"},{"1":"Meseguera","2":"91.00000"},{"1":"Mourvèdre-Syrah","2":"91.00000"},{"1":"Prunelard","2":"91.00000"},{"1":"Roussanne-Grenache Blanc","2":"91.00000"},{"1":"Tempranillo-Malbec","2":"91.00000"},{"1":"Tannat-Cabernet Franc","2":"90.93750"},{"1":"Scheurebe","2":"90.82609"},{"1":"Tokaji","2":"90.75000"},{"1":"Romorantin","2":"90.66667"},{"1":"Ugni Blanc","2":"90.66667"},{"1":"Malbec-Tannat","2":"90.60000"},{"1":"Timorasso","2":"90.60000"},{"1":"Sangiovese Grosso","2":"90.53306"},{"1":"Grenache Noir","2":"90.50000"},{"1":"Nasco","2":"90.50000"},{"1":"Trollinger","2":"90.50000"},{"1":"Tannat-Cabernet","2":"90.43333"},{"1":"Zierfandler-Rotgipfler","2":"90.40000"},{"1":"Zierfandler","2":"90.35714"},{"1":"Austrian white blend","2":"90.34615"},{"1":"Tinta Francisca","2":"90.33333"},{"1":"Vitovska","2":"90.33333"},{"1":"Nebbiolo","2":"90.26852"},{"1":"Baga","2":"90.13793"},{"1":"Roter Veltliner","2":"90.07692"},{"1":"Grüner Veltliner","2":"90.04612"},{"1":"Blaufränkisch","2":"90.00444"},{"1":"Carignano","2":"90.00000"},{"1":"Cesanese","2":"90.00000"},{"1":"Favorita","2":"90.00000"},{"1":"Früburgunder","2":"90.00000"},{"1":"Grolleau","2":"90.00000"},{"1":"Mavrotragano","2":"90.00000"},{"1":"Moscadello","2":"90.00000"},{"1":"Moscato Rosa","2":"90.00000"},{"1":"Orangetraube","2":"90.00000"},{"1":"Pinot Gris-Gewürztraminer","2":"90.00000"},{"1":"Sauvignonasse","2":"90.00000"},{"1":"Schwartzriesling","2":"90.00000"},{"1":"Shiraz-Malbec","2":"90.00000"},{"1":"Shiraz-Roussanne","2":"90.00000"},{"1":"Syrah-Cabernet Franc","2":"90.00000"},{"1":"Tinta Amarela","2":"90.00000"},{"1":"Tinta Cao","2":"90.00000"},{"1":"Trousseau Gris","2":"90.00000"},{"1":"Veltliner","2":"90.00000"},{"1":"Vital","2":"90.00000"},{"1":"Alsace white blend","2":"89.94872"},{"1":"Spätburgunder","2":"89.94203"},{"1":"Tinto Fino","2":"89.92929"},{"1":"Petit Manseng","2":"89.89091"},{"1":"Carricante","2":"89.88889"},{"1":"Sagrantino","2":"89.88889"},{"1":"Furmint","2":"89.88000"},{"1":"Provence red blend","2":"89.86885"},{"1":"Jaen","2":"89.83333"},{"1":"Nerello Cappuccio","2":"89.83333"},{"1":"Champagne Blend","2":"89.82759"},{"1":"Sherry","2":"89.80412"},{"1":"Morillon","2":"89.80000"},{"1":"Roter Traminer","2":"89.80000"},{"1":"Syrah-Petite Sirah","2":"89.80000"},{"1":"St. Laurent","2":"89.78824"},{"1":"Zibibbo","2":"89.76667"},{"1":"Grenache-Carignan","2":"89.76471"},{"1":"BoÄŸazkere","2":"89.75000"},{"1":"Bovale","2":"89.75000"},{"1":"Syrah-Carignan","2":"89.75000"},{"1":"Pedro Ximénez","2":"89.73810"},{"1":"Syrah-Viognier","2":"89.72222"},{"1":"Port","2":"89.71778"},{"1":"Nerello Mascalese","2":"89.68103"},{"1":"Cabernet Sauvignon-Merlot-Shiraz","2":"89.66667"},{"1":"Cerceal","2":"89.66667"},{"1":"Chardonnay-Pinot Blanc","2":"89.66667"},{"1":"Durella","2":"89.66667"},{"1":"Edelzwicker","2":"89.66667"},{"1":"Lambrusco di Sorbara","2":"89.66667"},{"1":"Shiraz-Grenache","2":"89.66667"},{"1":"Susumaniello","2":"89.66667"},{"1":"Verduzzo","2":"89.66667"},{"1":"Vidal","2":"89.66667"},{"1":"Viognier-Grenache Blanc","2":"89.66667"},{"1":"Albana","2":"89.63636"},{"1":"Tokay","2":"89.60000"},{"1":"Tinta de Toro","2":"89.59375"},{"1":"Okuzgozu","2":"89.57143"},{"1":"Austrian Red Blend","2":"89.55357"},{"1":"Encruzado","2":"89.54286"},{"1":"Gros and Petit Manseng","2":"89.53659"},{"1":"Weissburgunder","2":"89.53333"},{"1":"Cariñena-Garnacha","2":"89.50000"},{"1":"Hárslevelü","2":"89.50000"},{"1":"Moscatel Roxo","2":"89.50000"},{"1":"Pinot-Chardonnay","2":"89.50000"},{"1":"Rara Neagra","2":"89.50000"},{"1":"Savagnin","2":"89.50000"},{"1":"Rotgipfler","2":"89.48000"},{"1":"Riesling","2":"89.46461"},{"1":"Mataro","2":"89.42857"},{"1":"Rieslaner","2":"89.40000"},{"1":"Pinot Noir","2":"89.39160"},{"1":"Shiraz-Viognier","2":"89.35294"},{"1":"Merlot-Tannat","2":"89.33333"},{"1":"Mission","2":"89.33333"},{"1":"Touriga","2":"89.33333"},{"1":"Cabernet Franc-Cabernet Sauvignon","2":"89.31250"},{"1":"Syrah","2":"89.29754"},{"1":"Syrah-Cabernet Sauvignon","2":"89.29730"},{"1":"Alicante Bouschet","2":"89.29167"},{"1":"Muskat","2":"89.25000"},{"1":"Mourvèdre","2":"89.23113"},{"1":"Welschriesling","2":"89.20833"},{"1":"Assyrtiko","2":"89.17647"},{"1":"Aglianico","2":"89.17211"},{"1":"Rhône-style Red Blend","2":"89.15448"},{"1":"Carignan-Grenache","2":"89.11111"},{"1":"Bordeaux-style Red Blend","2":"89.10745"},{"1":"Roussanne-Viognier","2":"89.08333"},{"1":"Shiraz","2":"89.08118"},{"1":"Cabernet-Syrah","2":"89.07692"},{"1":"Kalecik Karasi","2":"89.07143"},{"1":"Palomino","2":"89.05556"},{"1":"Touriga Nacional Blend","2":"89.05556"},{"1":"Corvina","2":"89.05263"},{"1":"Pinot Meunier","2":"89.04545"},{"1":"Apple","2":"89.00000"},{"1":"Biancu Gentile","2":"89.00000"},{"1":"Catalanesca","2":"89.00000"},{"1":"Chasselas","2":"89.00000"},{"1":"Clairette","2":"89.00000"},{"1":"Debit","2":"89.00000"},{"1":"Gamza","2":"89.00000"},{"1":"GraÅ¡evina","2":"89.00000"},{"1":"Karasakiz","2":"89.00000"},{"1":"Magliocco","2":"89.00000"},{"1":"Merlot-Grenache","2":"89.00000"},{"1":"Monastrell-Petit Verdot","2":"89.00000"},{"1":"Nielluciu","2":"89.00000"},{"1":"Other","2":"89.00000"},{"1":"Petit Meslier","2":"89.00000"},{"1":"Rabigato","2":"89.00000"},{"1":"Ryzlink Rýnský","2":"89.00000"},{"1":"Syrah-Malbec","2":"89.00000"},{"1":"Tamianka","2":"89.00000"},{"1":"Tokay Pinot Gris","2":"89.00000"},{"1":"Vidadillo","2":"89.00000"},{"1":"White Port","2":"89.00000"},{"1":"Xinisteri","2":"89.00000"},{"1":"Grenache","2":"88.98849"},{"1":"Teroldego","2":"88.96667"},{"1":"Cabernet Sauvignon-Cabernet Franc","2":"88.95238"},{"1":"Cinsault","2":"88.94872"},{"1":"Syrah-Mourvèdre","2":"88.94444"},{"1":"G-S-M","2":"88.92941"},{"1":"Carignan","2":"88.92000"},{"1":"Counoise","2":"88.90909"},{"1":"Cabernet Sauvignon-Syrah","2":"88.89362"},{"1":"Carignane","2":"88.88462"},{"1":"Cabernet Sauvignon-Sangiovese","2":"88.87500"},{"1":"Auxerrois","2":"88.84615"},{"1":"Touriga Nacional","2":"88.84456"},{"1":"Carmenère-Cabernet Sauvignon","2":"88.83333"},{"1":"Turbiana","2":"88.83117"},{"1":"Kerner","2":"88.81481"},{"1":"Alfrocheiro","2":"88.80000"},{"1":"Grenache-Mourvèdre","2":"88.80000"},{"1":"Sciaccerellu","2":"88.80000"},{"1":"Syrah-Tempranillo","2":"88.80000"},{"1":"Grenache Blanc","2":"88.79839"},{"1":"Prugnolo Gentile","2":"88.76923"},{"1":"Portuguese Red","2":"88.76690"},{"1":"Altesse","2":"88.75000"},{"1":"Marselan","2":"88.75000"},{"1":"Alvarinho","2":"88.73387"},{"1":"Bordeaux-style White Blend","2":"88.70990"},{"1":"Mencía","2":"88.70909"},{"1":"Tannat","2":"88.68485"},{"1":"Malvasia Bianca","2":"88.66667"},{"1":"Shiraz-Mourvèdre","2":"88.66667"},{"1":"Verduzzo Friulano","2":"88.66667"},{"1":"Syrah-Grenache","2":"88.66038"},{"1":"Pinot Nero","2":"88.65584"},{"1":"Merlot-Cabernet Franc","2":"88.65217"},{"1":"Lagrein","2":"88.64474"},{"1":"Grauburgunder","2":"88.63636"},{"1":"Roussanne","2":"88.62893"},{"1":"Gelber Muskateller","2":"88.61765"},{"1":"White Riesling","2":"88.61538"},{"1":"Cabernet Sauvignon","2":"88.60531"},{"1":"Prié Blanc","2":"88.60000"},{"1":"Gewürztraminer","2":"88.59894"},{"1":"Muscat","2":"88.59055"},{"1":"Semillon-Sauvignon Blanc","2":"88.57447"},{"1":"Touriga Franca","2":"88.57143"},{"1":"Chenin Blanc","2":"88.56684"},{"1":"Graciano","2":"88.55814"},{"1":"Sangiovese","2":"88.54647"},{"1":"Cabernet Franc-Merlot","2":"88.53333"},{"1":"Pinot Gris","2":"88.50110"},{"1":"Babić","2":"88.50000"},{"1":"Duras","2":"88.50000"},{"1":"Gouveio","2":"88.50000"},{"1":"Malagousia","2":"88.50000"},{"1":"Malagouzia","2":"88.50000"},{"1":"Malbec-Cabernet Franc","2":"88.50000"},{"1":"Mandilaria","2":"88.50000"},{"1":"Merlot-Syrah","2":"88.50000"},{"1":"Rolle","2":"88.50000"},{"1":"Sangiovese Cabernet","2":"88.50000"},{"1":"Silvaner","2":"88.48718"},{"1":"Grenache-Syrah","2":"88.47917"},{"1":"Rhône-style White Blend","2":"88.47761"},{"1":"Malbec-Cabernet Sauvignon","2":"88.44828"},{"1":"Greco","2":"88.43966"},{"1":"Cabernet Blend","2":"88.42466"},{"1":"Muscat Blanc","2":"88.41667"},{"1":"Sylvaner","2":"88.41176"},{"1":"Roussanne-Marsanne","2":"88.40000"},{"1":"Viosinho","2":"88.40000"},{"1":"Pinot Bianco","2":"88.39456"},{"1":"Melon","2":"88.39231"},{"1":"Red Blend","2":"88.37962"},{"1":"Zweigelt","2":"88.35233"},{"1":"Petit Verdot","2":"88.35156"},{"1":"Cabernet Sauvignon-Shiraz","2":"88.34783"},{"1":"Aragonês","2":"88.33333"},{"1":"Argaman","2":"88.33333"},{"1":"Canaiolo","2":"88.33333"},{"1":"Nuragus","2":"88.33333"},{"1":"Viognier-Marsanne","2":"88.33333"},{"1":"Chardonnay","2":"88.32018"},{"1":"Fiano","2":"88.30137"},{"1":"Claret","2":"88.30000"},{"1":"Tocai","2":"88.30000"},{"1":"Sauvignon Blanc-Chardonnay","2":"88.28571"},{"1":"Malbec-Merlot","2":"88.26087"},{"1":"Corvina, Rondinella, Molinara","2":"88.23288"},{"1":"Saperavi","2":"88.22857"},{"1":"Tempranillo Blend","2":"88.22028"},{"1":"Marsanne","2":"88.21667"},{"1":"Sangiovese-Syrah","2":"88.20000"},{"1":"Sauvignon Blanc-Semillon","2":"88.18750"},{"1":"Black Muscat","2":"88.18182"},{"1":"Schiava","2":"88.17391"},{"1":"Petite Sirah","2":"88.16758"},{"1":"Orange Muscat","2":"88.16667"},{"1":"Sauvignon","2":"88.15282"},{"1":"Cabernet Franc","2":"88.14475"},{"1":"Sémillon","2":"88.13178"},{"1":"Cesanese d'Affile","2":"88.12500"},{"1":"Nosiola","2":"88.12500"},{"1":"Sousão","2":"88.12500"},{"1":"Charbono","2":"88.12000"},{"1":"Merlot-Cabernet","2":"88.10000"},{"1":"Tinta Roriz","2":"88.09091"},{"1":"Gamay","2":"88.08839"},{"1":"Gros Manseng","2":"88.08000"},{"1":"Assyrtico","2":"88.07143"},{"1":"Moschofilero","2":"88.05714"},{"1":"Touriga Nacional-Cabernet Sauvignon","2":"88.03704"},{"1":"Provence white blend","2":"88.02857"},{"1":"","2":"88.00000"},{"1":"Žilavka","2":"88.00000"},{"1":"Albarossa","2":"88.00000"},{"1":"Avesso","2":"88.00000"},{"1":"Blatina","2":"88.00000"},{"1":"Cabernet Sauvignon Grenache","2":"88.00000"},{"1":"Carcajolu","2":"88.00000"},{"1":"Cercial","2":"88.00000"},{"1":"Erbaluce","2":"88.00000"},{"1":"Frankovka","2":"88.00000"},{"1":"Grenache-Shiraz","2":"88.00000"},{"1":"Incrocio Manzoni","2":"88.00000"},{"1":"Jampal","2":"88.00000"},{"1":"Kadarka","2":"88.00000"},{"1":"Madeira Blend","2":"88.00000"},{"1":"Malvasia Fina","2":"88.00000"},{"1":"Marawi","2":"88.00000"},{"1":"Maria Gomes","2":"88.00000"},{"1":"Muscadel","2":"88.00000"},{"1":"Muscat Hamburg","2":"88.00000"},{"1":"Petit Courbu","2":"88.00000"},{"1":"Pinot Noir-Syrah","2":"88.00000"},{"1":"Piquepoul Blanc","2":"88.00000"},{"1":"Rebo","2":"88.00000"},{"1":"Rebula","2":"88.00000"},{"1":"Roditis-Moschofilero","2":"88.00000"},{"1":"Roscetto","2":"88.00000"},{"1":"Syrah-Merlot","2":"88.00000"},{"1":"Tămâioasă Românească","2":"88.00000"},{"1":"Tamjanika","2":"88.00000"},{"1":"Tempranillo-Tannat","2":"88.00000"},{"1":"Teran","2":"88.00000"},{"1":"Thrapsathiri","2":"88.00000"},{"1":"Traminer","2":"88.00000"},{"1":"Uvalino","2":"88.00000"},{"1":"Vermentino Nero","2":"88.00000"},{"1":"Vespolina","2":"88.00000"},{"1":"Viognier-Roussanne","2":"88.00000"},{"1":"Zelen","2":"88.00000"},{"1":"Malbec","2":"87.97508"},{"1":"Fumé Blanc","2":"87.97101"},{"1":"Cannonau","2":"87.96429"},{"1":"Chenin Blanc-Chardonnay","2":"87.93750"},{"1":"Friulano","2":"87.92920"},{"1":"Sparkling Blend","2":"87.91711"},{"1":"Tinta Fina","2":"87.90909"},{"1":"Tinto del Pais","2":"87.88889"},{"1":"Feteasca Neagra","2":"87.85714"},{"1":"Mavrud","2":"87.85714"},{"1":"Posip","2":"87.85714"},{"1":"Chardonnay-Sauvignon Blanc","2":"87.83333"},{"1":"Picpoul","2":"87.83333"},{"1":"Zinfandel","2":"87.82600"},{"1":"Verdicchio","2":"87.81366"},{"1":"Negrette","2":"87.81250"},{"1":"Antão Vaz","2":"87.80000"},{"1":"Pallagrello Nero","2":"87.80000"},{"1":"Tannat-Syrah","2":"87.80000"},{"1":"Trepat","2":"87.80000"},{"1":"Pinot Blanc","2":"87.76238"},{"1":"Elbling","2":"87.75000"},{"1":"Mazuelo","2":"87.75000"},{"1":"Mtsvane","2":"87.75000"},{"1":"Pinot Blanc-Chardonnay","2":"87.75000"},{"1":"Robola","2":"87.75000"},{"1":"Barbera","2":"87.74814"},{"1":"Albariño","2":"87.73451"},{"1":"Viognier","2":"87.73396"},{"1":"Mantonico","2":"87.71429"},{"1":"Nascetta","2":"87.71429"},{"1":"Aragonez","2":"87.70000"},{"1":"Uva di Troia","2":"87.69231"},{"1":"Cabernet Sauvignon-Merlot","2":"87.66972"},{"1":"Ciliegiolo","2":"87.66667"},{"1":"Pugnitello","2":"87.66667"},{"1":"Tinta Miúda","2":"87.66667"},{"1":"Trebbiano di Lugana","2":"87.66667"},{"1":"Trebbiano Spoletino","2":"87.66667"},{"1":"Moscatel","2":"87.65714"},{"1":"Trincadeira","2":"87.65385"},{"1":"Garganega","2":"87.64231"},{"1":"Nero di Troia","2":"87.63158"},{"1":"Gamay Noir","2":"87.61905"},{"1":"Ribolla Gialla","2":"87.61628"},{"1":"Vermentino","2":"87.61321"},{"1":"Pallagrello Bianco","2":"87.60000"},{"1":"Tannat-Merlot","2":"87.60000"},{"1":"Tinta Barroca","2":"87.60000"},{"1":"Meritage","2":"87.58468"},{"1":"Grecanico","2":"87.57143"},{"1":"Cabernet Sauvignon-Carmenère","2":"87.56410"},{"1":"Plavac Mali","2":"87.56250"},{"1":"Chenin Blanc-Viognier","2":"87.53846"},{"1":"Muscat Canelli","2":"87.51613"},{"1":"Alicante","2":"87.50000"},{"1":"Cabernet Pfeffer","2":"87.50000"},{"1":"Feteasca","2":"87.50000"},{"1":"Frappato","2":"87.50000"},{"1":"Garnacha Blend","2":"87.50000"},{"1":"Jacquère","2":"87.50000"},{"1":"Mauzac","2":"87.50000"},{"1":"Moscatel Graúdo","2":"87.50000"},{"1":"Tempranillo","2":"87.48758"},{"1":"Nero d'Avola","2":"87.44699"},{"1":"Lambrusco Grasparossa","2":"87.44444"},{"1":"Moscato Giallo","2":"87.43750"},{"1":"Sauvignon Blanc","2":"87.42796"},{"1":"Marsanne-Roussanne","2":"87.40909"},{"1":"Loureiro","2":"87.40000"},{"1":"Pinotage","2":"87.39535"},{"1":"White Blend","2":"87.33952"},{"1":"Muscatel","2":"87.33333"},{"1":"Perricone","2":"87.33333"},{"1":"Poulsard","2":"87.33333"},{"1":"Treixadura","2":"87.33333"},{"1":"Lemberger","2":"87.29412"},{"1":"Siria","2":"87.27273"},{"1":"Tocai Friulano","2":"87.27273"},{"1":"Mondeuse","2":"87.26667"},{"1":"Verdelho","2":"87.26562"},{"1":"Arneis","2":"87.23457"},{"1":"Monastrell","2":"87.21127"},{"1":"Shiraz-Cabernet Sauvignon","2":"87.21053"},{"1":"Pecorino","2":"87.20370"},{"1":"Kekfrankos","2":"87.20000"},{"1":"Kisi","2":"87.20000"},{"1":"Savatiano","2":"87.20000"},{"1":"Falanghina","2":"87.19767"},{"1":"Vernaccia","2":"87.19355"},{"1":"Glera","2":"87.19168"},{"1":"Merlot","2":"87.18418"},{"1":"Cabernet","2":"87.18182"},{"1":"Pinot Auxerrois","2":"87.18182"},{"1":"Dolcetto","2":"87.17614"},{"1":"Malvasia Nera","2":"87.16667"},{"1":"Trousseau","2":"87.16667"},{"1":"Gaglioppo","2":"87.15385"},{"1":"Carmenère-Syrah","2":"87.14286"},{"1":"Narince","2":"87.14286"},{"1":"Pallagrello","2":"87.12500"},{"1":"Arinto","2":"87.11842"},{"1":"Castelão","2":"87.11111"},{"1":"Müller-Thurgau","2":"87.07692"},{"1":"Agiorgitiko","2":"87.03448"},{"1":"Vidal Blanc","2":"87.01818"},{"1":"Alvarinho-Chardonnay","2":"87.00000"},{"1":"Barbera-Nebbiolo","2":"87.00000"},{"1":"Blauburger","2":"87.00000"},{"1":"Bombino Bianco","2":"87.00000"},{"1":"Bombino Nero","2":"87.00000"},{"1":"Cabernet Franc-Lemberger","2":"87.00000"},{"1":"Casavecchia","2":"87.00000"},{"1":"Chardonnay-Riesling","2":"87.00000"},{"1":"Fer Servadou","2":"87.00000"},{"1":"Garnacha-Monastrell","2":"87.00000"},{"1":"Grenache Gris","2":"87.00000"},{"1":"Groppello","2":"87.00000"},{"1":"Irsai Oliver","2":"87.00000"},{"1":"Kangoun","2":"87.00000"},{"1":"Karalahna","2":"87.00000"},{"1":"Malvasia di Candia","2":"87.00000"},{"1":"Mavroudi","2":"87.00000"},{"1":"Merlot-Malbec","2":"87.00000"},{"1":"Molinara","2":"87.00000"},{"1":"Morava","2":"87.00000"},{"1":"Morio Muskat","2":"87.00000"},{"1":"Pinot Blanc-Viognier","2":"87.00000"},{"1":"Pinot Grigio-Sauvignon Blanc","2":"87.00000"},{"1":"Plyto","2":"87.00000"},{"1":"Saperavi-Merlot","2":"87.00000"},{"1":"Sauvignon Musqué","2":"87.00000"},{"1":"Syrah-Bonarda","2":"87.00000"},{"1":"Tintilia","2":"87.00000"},{"1":"Valdiguié","2":"87.00000"},{"1":"Valvin Muscat","2":"87.00000"},{"1":"Verdeca","2":"87.00000"},{"1":"Primitivo","2":"86.99029"},{"1":"Trebbiano","2":"86.95745"},{"1":"Grillo","2":"86.94309"},{"1":"Portuguese White","2":"86.93308"},{"1":"Syrah-Cabernet","2":"86.92857"},{"1":"Godello","2":"86.92500"},{"1":"Fernão Pires","2":"86.87879"},{"1":"Rosato","2":"86.87879"},{"1":"Manzoni","2":"86.87500"},{"1":"Malvasia","2":"86.86364"},{"1":"Rosé","2":"86.83629"},{"1":"FeteascÇŽ RegalÇŽ","2":"86.83333"},{"1":"Garnacha Tintorera","2":"86.83333"},{"1":"Ruché","2":"86.83333"},{"1":"Colombard","2":"86.82609"},{"1":"Cabernet Sauvignon-Malbec","2":"86.82353"},{"1":"Merlot-Cabernet Sauvignon","2":"86.82143"},{"1":"Muskateller","2":"86.80000"},{"1":"Montepulciano","2":"86.79710"},{"1":"Negroamaro","2":"86.78571"},{"1":"Catarratto","2":"86.77778"},{"1":"Malvasia Istriana","2":"86.77778"},{"1":"Muskat Ottonel","2":"86.77273"},{"1":"Cabernet Merlot","2":"86.75000"},{"1":"Emir","2":"86.75000"},{"1":"Sauvignon Blanc-Chenin Blanc","2":"86.75000"},{"1":"Vranec","2":"86.75000"},{"1":"Chardonnay-Semillon","2":"86.71429"},{"1":"Xinomavro","2":"86.70968"},{"1":"Dornfelder","2":"86.66667"},{"1":"Papaskarasi","2":"86.66667"},{"1":"Rivaner","2":"86.66667"},{"1":"Souzao","2":"86.66667"},{"1":"Tempranillo-Cabernet Sauvignon","2":"86.64151"},{"1":"Aleatico","2":"86.60000"},{"1":"Grechetto","2":"86.60000"},{"1":"Refosco","2":"86.60000"},{"1":"Sangiovese-Cabernet Sauvignon","2":"86.60000"},{"1":"Rkatsiteli","2":"86.57576"},{"1":"Gewürztraminer-Riesling","2":"86.57143"},{"1":"Insolia","2":"86.56250"},{"1":"Carmenère","2":"86.55735"},{"1":"Çalkarası","2":"86.50000"},{"1":"Alvarelhão","2":"86.50000"},{"1":"Ansonica","2":"86.50000"},{"1":"Blauer Portugieser","2":"86.50000"},{"1":"Cabernet Moravia","2":"86.50000"},{"1":"Freisa","2":"86.50000"},{"1":"Malbec-Tempranillo","2":"86.50000"},{"1":"Marsanne-Viognier","2":"86.50000"},{"1":"Maturana","2":"86.50000"},{"1":"Monica","2":"86.50000"},{"1":"Piedirosso","2":"86.50000"},{"1":"Roditis","2":"86.50000"},{"1":"Sacy","2":"86.50000"},{"1":"Tempranillo-Syrah","2":"86.50000"},{"1":"Vilana","2":"86.50000"},{"1":"Bonarda","2":"86.48000"},{"1":"Cortese","2":"86.45070"},{"1":"Aligoté","2":"86.41379"},{"1":"Greco Bianco","2":"86.40000"},{"1":"Malbec-Bonarda","2":"86.40000"},{"1":"Mavrodaphne","2":"86.40000"},{"1":"Prosecco","2":"86.36771"},{"1":"Verdejo","2":"86.33922"},{"1":"Chardonnay-Sauvignon","2":"86.33333"},{"1":"Grenache Blend","2":"86.33333"},{"1":"Marzemino","2":"86.33333"},{"1":"Muscat d'Alexandrie","2":"86.33333"},{"1":"Tinta del Toro","2":"86.33333"},{"1":"Bical","2":"86.25000"},{"1":"Monastrell-Syrah","2":"86.25000"},{"1":"Raboso","2":"86.25000"},{"1":"Vinhão","2":"86.25000"},{"1":"Pinot Grigio","2":"86.22709"},{"1":"Garnacha Blanca","2":"86.21053"},{"1":"Moscato","2":"86.20659"},{"1":"Cabernet Sauvignon-Tempranillo","2":"86.20000"},{"1":"Carineña","2":"86.20000"},{"1":"Hondarrabi Zuri","2":"86.17647"},{"1":"Prieto Picudo","2":"86.13333"},{"1":"Baco Noir","2":"86.12500"},{"1":"Johannisberg Riesling","2":"86.11111"},{"1":"Portuguese Sparkling","2":"86.06452"},{"1":"Abouriou","2":"86.00000"},{"1":"Albanello","2":"86.00000"},{"1":"Azal","2":"86.00000"},{"1":"Bobal","2":"86.00000"},{"1":"Cabernet-Malbec","2":"86.00000"},{"1":"Cabernet Franc-Carmenère","2":"86.00000"},{"1":"Cococciola","2":"86.00000"},{"1":"Colorino","2":"86.00000"},{"1":"Diamond","2":"86.00000"},{"1":"Franconia","2":"86.00000"},{"1":"Garnacha-Tempranillo","2":"86.00000"},{"1":"Kuntra","2":"86.00000"},{"1":"Lambrusco Salamino","2":"86.00000"},{"1":"Listán Negro","2":"86.00000"},{"1":"Loureiro-Arinto","2":"86.00000"},{"1":"Malagouzia-Chardonnay","2":"86.00000"},{"1":"Maria Gomes-Bical","2":"86.00000"},{"1":"Mavrokalavryta","2":"86.00000"},{"1":"Merlot-Shiraz","2":"86.00000"},{"1":"Muscat Blanc à Petits Grains","2":"86.00000"},{"1":"Parraleta","2":"86.00000"},{"1":"Portuguiser","2":"86.00000"},{"1":"Sauvignon-Sémillon","2":"86.00000"},{"1":"Sauvignon Blanc-Sauvignon Gris","2":"86.00000"},{"1":"Shiraz-Cabernet","2":"86.00000"},{"1":"Silvaner-Traminer","2":"86.00000"},{"1":"Teroldego Rotaliano","2":"86.00000"},{"1":"Trajadura","2":"86.00000"},{"1":"Verdil","2":"86.00000"},{"1":"Viognier-Gewürztraminer","2":"86.00000"},{"1":"Zlahtina","2":"86.00000"},{"1":"Passerina","2":"85.91667"},{"1":"Sauvignon Gris","2":"85.90000"},{"1":"Garnacha","2":"85.89873"},{"1":"Inzolia","2":"85.87500"},{"1":"Pinot Noir-Gamay","2":"85.80000"},{"1":"Ugni Blanc-Colombard","2":"85.75000"},{"1":"Verdejo-Viura","2":"85.68421"},{"1":"Xarel-lo","2":"85.65000"},{"1":"Semillon-Chardonnay","2":"85.60000"},{"1":"Torrontés","2":"85.58264"},{"1":"Malbec-Syrah","2":"85.52632"},{"1":"Bastardo","2":"85.50000"},{"1":"Chinuri","2":"85.50000"},{"1":"Madeleine Angevine","2":"85.50000"},{"1":"Muscadine","2":"85.50000"},{"1":"Rufete","2":"85.50000"},{"1":"Yapincak","2":"85.50000"},{"1":"Vignoles","2":"85.45455"},{"1":"Viognier-Chardonnay","2":"85.44444"},{"1":"Macabeo","2":"85.43478"},{"1":"Symphony","2":"85.40000"},{"1":"Colombard-Sauvignon Blanc","2":"85.38889"},{"1":"Chardonnay-Viognier","2":"85.38235"},{"1":"Moscatel de Alejandría","2":"85.33333"},{"1":"Pansa Blanca","2":"85.30769"},{"1":"Coda di Volpe","2":"85.23529"},{"1":"Viura","2":"85.22115"},{"1":"Tempranillo-Garnacha","2":"85.18750"},{"1":"Tempranillo-Merlot","2":"85.16667"},{"1":"Colombard-Ugni Blanc","2":"85.12500"},{"1":"Biancale","2":"85.00000"},{"1":"Biancolella","2":"85.00000"},{"1":"Blanc du Bois","2":"85.00000"},{"1":"Chelois","2":"85.00000"},{"1":"Dafni","2":"85.00000"},{"1":"Garnacha-Cabernet","2":"85.00000"},{"1":"Grignolino","2":"85.00000"},{"1":"Jacquez","2":"85.00000"},{"1":"Macabeo-Chardonnay","2":"85.00000"},{"1":"Macabeo-Moscatel","2":"85.00000"},{"1":"Malvasia-Viura","2":"85.00000"},{"1":"Merlot-Argaman","2":"85.00000"},{"1":"Merseguera-Sauvignon Blanc","2":"85.00000"},{"1":"Misket","2":"85.00000"},{"1":"Moschofilero-Chardonnay","2":"85.00000"},{"1":"Muscat of Alexandria","2":"85.00000"},{"1":"Pinot Blanc-Pinot Noir","2":"85.00000"},{"1":"Sideritis","2":"85.00000"},{"1":"St. Vincent","2":"85.00000"},{"1":"Tinto Velasco","2":"85.00000"},{"1":"Verdejo-Sauvignon Blanc","2":"85.00000"},{"1":"Chenin Blanc-Sauvignon Blanc","2":"84.83333"},{"1":"Rosado","2":"84.76623"},{"1":"Sauvignon Blanc-Verdejo","2":"84.75000"},{"1":"Tempranillo-Shiraz","2":"84.75000"},{"1":"Viura-Chardonnay","2":"84.69231"},{"1":"Portuguese Rosé","2":"84.66667"},{"1":"Garnacha-Syrah","2":"84.61538"},{"1":"Traminette","2":"84.60000"},{"1":"Lambrusco","2":"84.56522"},{"1":"Cayuga","2":"84.50000"},{"1":"Marquette","2":"84.50000"},{"1":"Pignoletto","2":"84.50000"},{"1":"Viura-Verdejo","2":"84.50000"},{"1":"Seyval Blanc","2":"84.18750"},{"1":"Asprinio","2":"84.00000"},{"1":"Bobal-Cabernet Sauvignon","2":"84.00000"},{"1":"Cabernet Sauvignon-Barbera","2":"84.00000"},{"1":"Doña Blanca","2":"84.00000"},{"1":"Durif","2":"84.00000"},{"1":"Espadeiro","2":"84.00000"},{"1":"Kinali Yapincak","2":"84.00000"},{"1":"Norton","2":"84.00000"},{"1":"Petite Verdot","2":"84.00000"},{"1":"Pigato","2":"84.00000"},{"1":"Pinotage-Merlot","2":"84.00000"},{"1":"Siegerrebe","2":"84.00000"},{"1":"Tempranillo Blanco","2":"84.00000"},{"1":"Verdosilla","2":"84.00000"},{"1":"Viognier-Valdiguié","2":"84.00000"},{"1":"Brachetto","2":"83.84615"},{"1":"Chambourcin","2":"83.72222"},{"1":"Athiri","2":"83.00000"},{"1":"Chardonel","2":"83.00000"},{"1":"ForcallÃ","2":"83.00000"},{"1":"Merlot-Petite Verdot","2":"83.00000"},{"1":"País","2":"83.00000"},{"1":"Paralleda","2":"83.00000"},{"1":"Premsal","2":"83.00000"},{"1":"Gragnano","2":"82.50000"},{"1":"Aidani","2":"82.00000"},{"1":"Picapoll","2":"82.00000"},{"1":"Shiraz-Tempranillo","2":"82.00000"},{"1":"Airen","2":"81.66667"},{"1":"Malvar","2":"81.00000"},{"1":"Chancellor","2":"80.50000"}],"options":{"columns":{"min":{},"max":[10],"total":[2]},"rows":{"min":[10],"max":[10],"total":[687]},"pages":{}}}
  </script>
</div>

<!-- rnb-frame-end -->

<!-- rnb-chunk-end -->


<!-- rnb-text-begin -->



<!-- rnb-text-end -->


<!-- rnb-chunk-begin -->


<!-- rnb-source-begin eyJkYXRhIjoiYGBgclxudXNlcl9wcmljZSA8LSByZWFkbGluZShwcm9tcHQgPSBcIkhvdyBtdWNoIGFyZSB5b3Ugd2lsbGluZyB0byBzcGVuZCBvbiBhIGJvdHRsZT9cIilcbnVzZXJfcHJpY2UgPC0gYXMuaW50ZWdlcih1c2VyX3ByaWNlKVxuXG53aW5lcyAlPiUgXG4gIGZpbHRlcihwcmljZSA8PSB1c2VyX3ByaWNlKSAlPiUgXG4gIGFycmFuZ2UoZGVzYyhwb2ludHMpKSAlPiUgXG4gIHNlbGVjdCh0aXRsZSwgcHJpY2UsIHBvaW50cylcbmBgYCJ9 -->

```r
user_price <- readline(prompt = "How much are you willing to spend on a bottle?")
user_price <- as.integer(user_price)

wines %>% 
  filter(price <= user_price) %>% 
  arrange(desc(points)) %>% 
  select(title, price, points)

Conclusion

LS0tCnRpdGxlOiAiRXhwbG9yaW5nIGFuZCBBbmFseWl6aW5nIFdpbmUgRW50aHVzaWFzdCBSZXZpZXdzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIFByZXJlcXVpc2l0ZXMKCkxvYWRpbmcgdGhlIHJlcXVpcmVkIHBhY2thZ2VzCmBgYHtyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShkcGx5cikKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHJ0d2VldCkKbGlicmFyeShyZWFkcikKbGlicmFyeShEYXRhRXhwbG9yZXIpCmBgYAoKIyBEYXRhc2V0CgpJbXBvcnQgcHJvY2Vzc2VkIGRhdGEsIHdoaWNoIGNhbiBiZSBmb3VuZCBbaGVyZV0oaHR0cHM6Ly9naXRodWIuY29tL0M0cmJ5bjNtNG4vd2luZV9yZXZpZXdzX2RhdGFfYW5hbHlzaXMvYmxvYi9tYXN0ZXIvZGF0YS9wcm9jZXNzZWRfZGF0YS9wcmVwcm9jZXNzaW5nLnJtZCkuCgpgYGB7cn0KI3JlYWQgcHJlcHJvY2Vzc2VkIGRhdGEKd2luZXMgPC0gcmVhZC5jc3YoZmlsZSA9ICcuLi9kYXRhL3Byb2Nlc3NlZF9kYXRhL3dpbmVzLmNzdicpCmBgYAoKR2V0IHNhbXBsZSBvZiBkYXRhc2V0CmBgYHtyfQojc2V0IHNlZWQgdmFsdWUgdG8gYmlydGhkYXkgb2YgUmljYXJkbyBSb2RyaWd1ZXosIEFtZXJpY2FuIHdyZXN0bGVyIGFuZCByaW5nIGFubm91bmNlciBhbmQgRHIuIFJlaW5hbGRvIChSZWkpIFNhbmNoZXotQXJpYXMKc2V0LnNlZWQoMTk2MzAyMTcpCgojc2V0IHBlcmNlbnRhZ2UgdG8gdGVzdCB3aXRoIGZvciBzaW1wbGljaXR5LCBpZiBuZWVkZWQKcGVyY2VudGFnZSA8LSA1CndpbmVfc2FtcGxlPC0gc2FtcGxlX24od2luZXMsIHBlcmNlbnRhZ2UvMTAwKm5yb3cod2luZXMpKQpgYGAKCiMjIyBTcGxpdCBUYXN0ZXIgZGF0YSBpbnRvIGRpZmZlcmVudCBEYXRhIEZyYW1lCgpgYGB7cn0KdGFzdGVycyA8LSB3aW5lcyAlPiUKICBzZWxlY3QodGFzdGVyX25hbWUsIHRhc3Rlcl90d2l0dGVyX2hhbmRsZSkgJT4lIHVuaXF1ZSgpCnRhc3RlcnMKYGBgCgpEcm9wIGB0YXN0ZXJfdHdpdHRlcl9oYW5kbGVgIGluIHdpbmVzIGRhdGFmcmFtZQoKYGBge3J9CndpbmVzIDwtIHdpbmVzICU+JQogIHNlbGVjdCgtdGFzdGVyX3R3aXR0ZXJfaGFuZGxlKQpoZWFkKHdpbmVzKQpgYGAKIyMgQWRkIFJldmlld2VyIHByb2ZpbGUgaW5mbwoKRWFjaCByZXZpZXdlciBoYXMgdGhlcmUgb3duIGJpYXMuIFRvIG9mZnNldCB0aGF0IHdlIG1hZGUgYSAicHJvZmlsZSIgZm9yIGVhY2ggcmV2aWV3ZXIgd2hpY2ggaW5jbHVkZXMgY2hhcmFjdGVyaXN0aWNzIGxpa2U6IGBhdmdfcG9pbnRzYCwgYHNkX3BvaW50c2AsIGFuZCBgdmFyX3BvaW50c2AKYGBge3J9CnRhc3Rlcl9yYXRpbmdfcHJvZmlsZSA8LSB3aW5lcyAlPiUKICBncm91cF9ieSh0YXN0ZXJfbmFtZSkgJT4lCiAgc3VtbWFyaXplKAogICAgYXZnX3BvaW50cyA9IG1lYW4ocG9pbnRzKSwKICAgIHNkX3BvaW50cyA9IHNkKHBvaW50cyksCiAgICB2YXJfcG9pbnRzID0gdmFyKHBvaW50cyksCiAgICByZXZpZXdzID0gbigpCiAgKQoKdGFzdGVycyA8LSBpbm5lcl9qb2luKHRhc3RlcnMsIHRhc3Rlcl9yYXRpbmdfcHJvZmlsZSwgYnkgPSAidGFzdGVyX25hbWUiKQpoZWFkKHRhc3RlcnMpCmBgYAojIyMgQWRkIFJhdGluZyBDbGFzc2lmaWNhdGlvbgoKQWRkIGZvbGxvd2luZyBjbGFzc2lmaWNhdGlvbiB0byB3aW5lIGRhdGFzZXQgYXMgZm91bmQgb24gdGhlIFt3ZWJzaXRlXShodHRwczovL3d3dy53aW5lbWFnLmNvbS8yMDEwLzA0LzA5L3lvdS1hc2tlZC1ob3ctaXMtYS13aW5lcy1zY29yZS1kZXRlcm1pbmVkLyk6Cgp8Q2F0ZWdvcnkgIHwgUmF0aW5nICB8IERlc2NyaXB0aW9uICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8CnwtLS0tLS0tLS0tfC0tLS0tLS0tLXwtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLXwKfENsYXNzaWMgICB8CTk4LTEwMCB8IFRoZSBwaW5uYWNsZSBvZiBxdWFsaXR5LiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8CnxTdXBlcmIgICAgfAk5NC05NwkgfCBBIGdyZWF0IGFjaGlldmVtZW50LiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfAp8RXhjZWxsZW50IHwJOTAtOTMJIHwgSGlnaGx5IHJlY29tbWVuZGVkLiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHwKfFZlcnkgR29vZCB8ICA4Ny04OQkgfCBPZnRlbiBnb29kIHZhbHVlOyB3ZWxsIHJlY29tbWVuZGVkLiAgICAgICAgICAgICAgICAgICAgfAp8R29vZAkgICAgIHwgIDgzLTg2CSB8IFN1aXRhYmxlIGZvciBldmVyeWRheSBjb25zdW1wdGlvbjsgb2Z0ZW4gZ29vZCB2YWx1ZS4gICB8CnxBY2NlcHRhYmxlfAk4MC04MgkgfCBDYW4gYmUgZW1wbG95ZWQgaW4gY2FzdWFsLCBsZXNzLWNyaXRpY2FsIGNpcmN1bXN0YW5jZXMgfAoKYGBge3J9CiMgZnVuY3Rpb24gdG8gYWRkIHJhdGluZwpyYXRpbmdfY2F0ZWdvcnkgPC0gZnVuY3Rpb24ocG9pbnRzKXsKICBpZihwb2ludHM+PTk4KXsKICAgIHJldHVybigiQ2xhc3NpYyIpCiAgfQogIGVsc2UgaWYgKHBvaW50cz49OTQpewogICAgcmV0dXJuKCJTdXBlcmIiKQogIH0KICBlbHNlIGlmKHBvaW50cz49OTApewogICAgcmV0dXJuKCJFeGNlbGxlbnQiKQogIH0KICBlbHNlIGlmKHBvaW50cz49ODcpewogICAgcmV0dXJuKCJWZXJ5IEdvb2QiKQogIH0KICBlbHNlIGlmKHBvaW50cz49ODMpewogICAgcmV0dXJuKCJHb29kIikKICB9CiAgZWxzZXsKICAgIHJldHVybigiQWNjZXB0YWJsZSIpCiAgfQp9Cgp3aW5lczwtIHdpbmVzICU+JQogIHJvd3dpc2UoKSAlPiUKICBtdXRhdGUocmF0aW5nX2NhdGVnb3J5ID0gcmF0aW5nX2NhdGVnb3J5KHBvaW50cykpCmhlYWQod2luZXMpCmBgYAoKIyMgQWRkIEFkanVzdGVkIFBvaW50cwoKU2luY2UsIGVhY2ggcmV2aWV3ZXIgaGFzIGEgZGlmZmVyZW50IGJpYXMgd2UgY3JlYXRlZCBhIG5vcm1hbGl6ZWQgbWV0cmljLCBgbm9ybV9wb2ludHNgLCBieSBsb29raW5nIGF0IHRoZSBudW1iZXIgb2Ygc3RhbmRhcmQgZGV2aWF0aW9pbnMgYSB3aW5lIGlzIGZyb20gdGhlIHJldmlld2VyJ3MgYGF2Z19wb2ludHNgLiBUaGlzIGdpdmVzIHVzZSBhIG1vcmUgYWNjdXJhdGUgcmVwcmVzZW50YXRpb24gb2Ygd2hpY2ggd2hpY2ggd2luZXMgYXJlIGJldHRlciB0aGFuIHRoZSByZXN0LgoKYGBge3J9Cm5vcm1hbGl6ZV9wb2ludHMgPC0gZnVuY3Rpb24oZGF0YSl7CiAgbGVmdF9qb2luKGRhdGEsIHRhc3RlcnMsIGJ5ID0gInRhc3Rlcl9uYW1lIiklPiUKICAgIHJvd3dpc2UoKSAlPiUKICAgIG11dGF0ZShub3JtX3BvaW50cyA9IChwb2ludHMtYXZnX3BvaW50cykvc2RfcG9pbnRzKSAlPiUKICAgIHNlbGVjdCgtYXZnX3BvaW50cywgLXNkX3BvaW50cywgLXZhcl9wb2ludHMsIC10YXN0ZXJfdHdpdHRlcl9oYW5kbGUsIC1yZXZpZXdzKQp9Cgp3aW5lcyA8LSBub3JtYWxpemVfcG9pbnRzKHdpbmVzKQpoZWFkKHdpbmVzKSAKYGBgCgojIyBEYXRhIFNhbml0YXRpb24KClZpbnRhZ2Ugc2VlbXMgdG8gaGF2ZSB5ZWFyIDcyMDAKYGBgIHtyfQp3aW5lcyA8LSB3aW5lcyAlPiUKICBmaWx0ZXIodmludGFnZTwyMDE5KQpgYGAKIyBEYXRhIEV4cGxvcmF0aW9uCgojIyBVbml2YXJpYXRlIEV4cGxvcmF0aW9uCkNvcnJlbGF0aW5nIGBwcmljZWAgYnkgYHBvaW50c2AsIHVzaW5nIGBgYERhdGFFeHBsb3JlcmBgYCBsaWJyYXJ5IHdoaWNoIGNhbiBiZSBmb3VuZCBbaGVyZV0oaHR0cHM6Ly9kYXRhc2NpZW5jZXBsdXMuY29tL2JsYXppbmctZmFzdC1lZGEtaW4tci13aXRoLWRhdGFleHBsb3Jlci8pCgojIyMgQWxjb2hvbCBBbW91bnQKYGBge3J9CndpbmVzICU+JSAKICBncm91cF9ieShhbGNvaG9sKSAlPiUgCiAgZ2dwbG90KG1hcHBpbmcgPSBhZXMoeCA9IGFsY29ob2wpKSArCiAgZ2VvbV9oaXN0b2dyYW0obmEucm0gPSBULAogICAgICAgICAgICAgICAgIGJpbnMgPSA1MCkgKwogIHNjYWxlX3hfY29udGludW91cygKICAgIG5hbWUgPSAiQWxjaG9ob2wgUGVyY2VudGFnZSIsIAogICAgYnJlYWtzID0gc2VxKDAsMjUsMSksIAogICAgbGltaXRzID0gYyg0LDIyKSkKYGBgCiMjIyBDYXRlZ29yeQpgYGB7cn0Kd2luZXMgJT4lIAojICBncm91cF9ieShwb2ludHMpICU+JSAKIyAgY291bnQoY2F0ZWdvcnkpICU+JSAgCiAgZ2dwbG90KCkgKwogIGZhY2V0X3dyYXAofiBjYXRlZ29yeSkgKwogIGdlb21fcG9pbnQobWFwcGluZyA9IGFlcyh4PXBvaW50cywgeSA9IHByaWNlKSkKYGBgCgojIyMgVmludGFnZQpDb3VudCB3aW5lcyBwZXIgeWVhciAoTm90ZTogRGF0YSBoYXMgYmVlbiBzYW5pdGl6ZWQpCmBgYHtyfQp3aW5lcyAlPiUKICBncm91cF9ieSh2aW50YWdlKSAlPiUKICBzdW1tYXJpemUoY291bnQgPSBuKCkpCmBgYAoKCmBgYHtyfQp3aW5lcyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9iYXIobWFwcGluZyA9IGFlcyh4PXZpbnRhZ2UpKQpgYGAKCiMjIyBXaW5lcnkKVG8gYmV0dGVyIHVuZGVyc3RhbmQgdGhlIG51bWJlciB3aW5lcyBwZXIgd2luZXJ5LCB3ZSBkaWQgYSB1bml2YXJpdGUgdmlzdWFsaXphdGlvbiB0aGF0IGNvdW50cyB0aGUgbnVtYmVyIG9mIHdpbmVzIHBlciB3aW5lcnkgc2hvd2luZyBvbmx5IDE1IHdpbmVyeXMgdG8gZ2l2ZSB5b3UgYW4gaWRlYSB3aGF0IHdpbmVyeSBoYXMgdGhlIG1vc3Qgc2VsY3Rpb24gb2Ygd2luZXMuCmBgYHtyfQp3aW5lcyAlPiUKICBncm91cF9ieSh3aW5lcnkpICU+JQogIHN1bW1hcml6ZShjb3VudCA9IG4oKSkgJT4lCiAgYXJyYW5nZShkZXNjKGNvdW50KSkgJT4lCiAgc2xpY2UoMToxNSkgJT4lCiAgZ2dwbG90KCkgKwogIGdlb21fY29sKG1hcHBpbmcgPSBhZXMoeD1jb3VudCwgeSA9IHJlb3JkZXIod2luZXJ5LCBjb3VudCkpKQpgYGAKCiMjIyBQcm92aW5jZQpUbyBiZXR0ZXIgdW5kZXJzdGFuZCB0aGUgbnVtYmVyIHdpbmVzIHBlciBwcm92aW5jZSwgd2UgZGlkIGEgdW5pdmFyaXRlIHZpc3VhbGl6YXRpb24gdGhhdCBjb3VudHMgdGhlIG51bWJlciBvZiB3aW5lcyBwZXIgcHJvdmluY2Ugc2hvd2luZyBvbmx5IHRoZSB0b3AgMTAgcHJvdmluY2VzIHdpdGggdGhlIG1vc3Qgd2luZXMuIFRoaXMgY2FuIGdpdmUgdGhlIHJlYWRlciBhbiBpZGVhIHdoZXJlIHRoZWlyIHdpbmUgd2lsbCBtb3N0IGxpa2VseSBiZSBtYWRlIHdpdGggQ2FsaWZvcm5pYSBzdGFuZGluZyBvdXQgYXMgYSBjbGVhciBsZWFkZXIuCmBgYHtyfQp3aW5lcyAlPiUgCiAgZ3JvdXBfYnkocHJvdmluY2UpICU+JSAKICBzdW1tYXJpemUoY291bnQgPSBuKCkpICU+JSAKICBhcnJhbmdlKGRlc2MoY291bnQpKSAlPiUgCiAgc2xpY2UoMToxMCkgJT4lIAogIGdncGxvdCgpKwogIGdlb21fY29sKGFlcyh4ID0gY291bnQsIHkgPSByZW9yZGVyKHByb3ZpbmNlLCBjb3VudCkpKQpgYGAKCiMjIyBQcmljZQpDYWxjdWxhdGluZyB0aGUgTWVhbiwgU3RhbmRhcmQgRGV2aWF0aW9uLCBNaW5pbXVtLCBhbmQgTWF4IFByaWNlIGZvciB0aGUgZW50aXJlIHdpbmUgZGF0YXNldCBhbmQgcHJpbnRpbmcgdGhlIHZhbHVlcy4KYGBge3J9Cm1lYW5fcHJpY2UgPC0gbWVhbih3aW5lcyRwcmljZSwgbmEucm0gPSBUUlVFKQpzZF9wcmljZSA8LSBzZCh3aW5lcyRwcmljZSwgbmEucm0gPSBUUlVFKQptaW5fcHJpY2UgPC0gbWluKHdpbmVzJHByaWNlLCBuYS5ybSA9IFRSVUUpCm1heF9wcmljZSA8LSBtYXgod2luZXMkcHJpY2UsIG5hLnJtID0gVFJVRSkKCnByaW50KHBhc3RlKCJNZWFuIFByaWNlOiIsIG1lYW5fcHJpY2UpKQpwcmludChwYXN0ZSgiU0QgUHJpY2U6Iiwgc2RfcHJpY2UpKQpwcmludChwYXN0ZSgiTWluIFByaWNlOiIsIG1pbl9wcmljZSkpCnByaW50KHBhc3RlKCJNYXggUHJpY2U6IiwgbWF4X3ByaWNlKSkKYGBgCgojIyMgIFBvaW50cyAKQ2FsY3VsYXRpbmcgdGhlIE1lYW4sIFN0YW5kYXJkIERldmlhdGlvbiwgTWluaW11bSwgYW5kIE1heCBQb2ludHMgZm9yIHRoZSBlbnRpcmUgd2luZSBkYXRhc2V0IGFuZCBwcmludGluZyB0aGUgdmFsdWVzLgpgYGB7cn0KCgpgYGAKCgoKVG8gaGVscCB5b3UgdW5kZXJzdGFuZCB0aGUgcG9pbnQgZGlzdHJpYnV0aW9uIGJ5IHJldmlld2Vycywgd2UgZGlkIGEgbXVsdGl2YXJpdGUgdmlzdWFsaXphdGlvbiB0aGF0IGNvb3JlbGF0ZXMgc29tZSB0YXN0ZXIgbmFtZXMgYmFzZWQgb24gdGhlIGF2ZXJhZ2Ugd2luZSBwb2ludHMgYXMgaWRlbnRpZmllZCAgYnkgdGhlIHgtaW50ZXJjZXB0LiBUaGlzIGdpdmUgeW91IHRoZSByZWFkZXIgYW4gaWRlYSBvZiBob3cgc29tZSByZXZpZXdlcnMgY29ycmVsYXRlIHRvIHRoZSBvdmVyYWxsIGF2ZXJhZ2UuCmBgYHtyfQp3aW5lcyAlPiUKICBnZ3Bsb3QoKSArCiAgZ2VvbV9ib3hwbG90KGFlcyh5PXRhc3Rlcl9uYW1lLCB4PXBvaW50cykpICsKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSBtZWFuKHdpbmVzJHBvaW50cykpCmBgYAoKIyMgTXVsdGl2YXJpYXRlIEV4cGxvcmF0aW9uCgojIyBQcmljZSBieSBQb2ludHMKTm90aWNlIHRoZSBkYXRhIGlzICJzdGFja2VkIiBhbmQgdGhlIHNvY3JlcyByYW5nZSBmcm9tIDgwLTEwMApgYGB7cn0Kd2luZXMgJT4lIAogIGdncGxvdCgpICsKICBnZW9tX3BvaW50KG1hcHBpbmcgPSAoYWVzKHggPSBwb2ludHMsIHkgPSBwcmljZSkpLCBuYS5ybSA9IFQsIGFscGhhID0gMC4xNSkgKwogIGxhYnModGl0bGUgPSAiUHJpY2UgYnkgUG9pbnRzIiwgeCA9ICJQb2ludHMiLCB5ID0gIlByaWNlIikKYGBgCgpUT0RPOiBJWlpZIChXaHkgZGlkIHdlIGxvZyB0aGlzPykKCmBgYHtyfQp3aW5lcyAlPiUgCiAgZ2dwbG90KCkgKwogIGdlb21fcG9pbnQobWFwcGluZyA9IChhZXMoeCA9IHBvaW50cywgeSA9IGxvZyhwcmljZSkpKSwgbmEucm0gPSBULCBhbHBoYSA9IDAuMTUpICsKICBsYWJzKHRpdGxlID0gImxvZyhQcmljZSkgYnkgUG9pbnRzIiwgeCA9ICJQb2ludHMiLCB5ID0gImxvZyhQcmljZSkiKQpgYGAKCiMgRGF0YSBBbmFseXNpcwpUbyBoZWxwIHlvdSB1bmRlcnN0YW5kIHRoZSBkYXRhIGFuYWx5c2lzLCB3ZSBmb3VuZCB0aGUgYmVzdCBwcm92aW5jZSBmb3Igd2luZSBieSB1c2luZyB0aGUgYXZlcmFnZSBwb2ludHMgYWNyb3NzIHRoZSB3aW5lcy4gCmBgYHtyfQptZWFuX3BvaW50cyA8LSBtZWFuKHdpbmVzJHBvaW50cykKYmVzdF9wcm92aW5jZSA8LSB3aW5lcyAlPiUgCiAgc3VtbWFyaXNlKHByb3ZpbmNlKSAlPiUgCiAgZmlsdGVyKHBvaW50cyA+IG1lYW5fcG9pbnRzKSAlPiUgCiAgYXJyYW5nZShkZXNjKHBvaW50cykpICU+JSAgCiAgZ2dwbG90KCkgKwogIGdlb21fY29sKG1hcHBpbmcgPSBhZXMoeD0gcHJvdmluY2UsIHkgPSBwb2ludHMpKSAKYmVzdF9wcm92aW5jZQpgYGAKCgpCZXN0IHdpbmUsIGJ5IHZhcmlldHkKYGBge3J9CiN3aW5lX2Jlc3RfdmFyaWV0eSA8LSAKd2luZXMgJT4lIAogIGdyb3VwX2J5KHZhcmlldHkpICU+JSAKICBzdW1tYXJpc2UobWVhbl9wb2ludHMgPSBtZWFuKHBvaW50cykpICU+JSAKICBhcnJhbmdlKGRlc2MobWVhbl9wb2ludHMpKSAKICAKYGBgCgpgYGB7cn0KdXNlcl9wcmljZSA8LSByZWFkbGluZShwcm9tcHQgPSAiSG93IG11Y2ggYXJlIHlvdSB3aWxsaW5nIHRvIHNwZW5kIG9uIGEgYm90dGxlPyIpCnVzZXJfcHJpY2UgPC0gYXMuaW50ZWdlcih1c2VyX3ByaWNlKQoKd2luZXMgJT4lIAogIGZpbHRlcihwcmljZSA8PSB1c2VyX3ByaWNlKSAlPiUgCiAgYXJyYW5nZShkZXNjKHBvaW50cykpICU+JSAKICBzZWxlY3QodGl0bGUsIHByaWNlLCBwb2ludHMpCmBgYAoKCiMgQ29uY2x1c2lvbgo=